diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-06-23 02:59:21 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-06-23 02:59:21 +0000 |
commit | 7094b0888f32eda810eef822fdb8af0ca7fc65ee (patch) | |
tree | 564eafe02f800e6f8ca514a844eae720cd5b0910 /lisp/play | |
parent | ec8a218f6a54696c873c4720d8c38580419d91e5 (diff) | |
download | emacs-7094b0888f32eda810eef822fdb8af0ca7fc65ee.tar.gz |
(decipher-copy-cons): Renamed from decipher-get-undo-copy. Calls changed.
Diffstat (limited to 'lisp/play')
-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)) |