Mercurial > emacs

changeset 18411:ed909ffc3c46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(decipher-copy-cons): Renamed from decipher-get-undo-copy. Calls changed.
author Richard M. Stallman <rms@gnu.org>
date Mon, 23 Jun 1997 02:59:21 +0000
parents e414b2e486a3
children 3febbe908cc3
files lisp/play/decipher.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/decipher.el	Mon Jun 23 02:56:03 1997 +0000
+++ b/lisp/play/decipher.el	Mon Jun 23 02:59:21 1997 +0000
@@ -408,7 +408,7 @@
               (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 @@
   ;;   (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))