diff options
Diffstat (limited to 'lisp/play/decipher.el')
| -rw-r--r-- | lisp/play/decipher.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el index 3e487ff3232..f7d07ae13f3 100644 --- a/lisp/play/decipher.el +++ b/lisp/play/decipher.el @@ -408,7 +408,7 @@ The most useful commands are: (setcdr (nthcdr (1- new-size) decipher-undo-list) nil) (setq decipher-undo-list-size new-size)))))) -(defun decipher-get-undo-copy (cons) +(defun decipher-copy-cons (cons) (if cons (cons (car cons) (cdr cons)))) @@ -417,8 +417,8 @@ The most useful commands are: ;; (decipher-set-map CIPHER-CHAR PLAIN-CHAR) ;; We must copy the cons cell because the original cons cells will be ;; modified using setcdr. - (let ((cipher-map (decipher-get-undo-copy (rassoc cipher-char decipher-alphabet))) - (plain-map (decipher-get-undo-copy (assoc plain-char decipher-alphabet)))) + (let ((cipher-map (decipher-copy-cons (rassoc cipher-char decipher-alphabet))) + (plain-map (decipher-copy-cons (assoc plain-char decipher-alphabet)))) (cond ((equal ?\ plain-char) cipher-map) ((equal cipher-char (cdr plain-map)) |