From 93ce34bffebf2ed5b9ad41aae817af014e153e92 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 23 Jun 1997 02:59:21 +0000 Subject: [PATCH] (decipher-copy-cons): Renamed from decipher-get-undo-copy. Calls changed. --- lisp/play/decipher.el | 6 +++--- 1 file 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)) -- 2.39.5