mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(tazjin/russian): Minor Elisp fixes

Browse source 
Change-Id: I759182ccb49d7a72ca8a031c829608c9eee70277
This commit is contained in:
Vincent Ambo 2021-12-13 16:36:19 +03:00
parent 53f8a04b33
commit 396e3a0d68
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
users/tazjin/russian/russian.el
View file

@ -21,9 +21,9 @@
"Merge two Russian word definitions together. If no previous "Merge two Russian word definitions together. If no previous
definition exists, only the new one will be returned." definition exists, only the new one will be returned."
(if (not previous) new (if (not previous) new
(assert (equal (russian-word-word previous) (cl-assert (equal (russian-word-word previous)
(russian-word-word new)) (russian-word-word new))
"different words passed into merge function") "different words passed into merge function")
(make-russian-word :word (russian-word-word previous) (make-russian-word :word (russian-word-word previous)
:translations (-concat (russian-word-translations previous) :translations (-concat (russian-word-translations previous)
(russian-word-translations new)) (russian-word-translations new))

2
users/tazjin/russian/words.el
View file

@ -4,7 +4,7 @@
;; translations :: '(translation ...) ;; translations :: '(translation ...)
;; roots :: '(root ...) ;; roots :: '(root ...)
(require 'russian-defs) (require 'russian)
(define-russian-words (define-russian-words
;; 1-50 ;; 1-50