mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(decipher-copy-cons): Renamed from decipher-get-undo-copy. Calls changed.

Browse Source
This commit is contained in:
Richard M. Stallman 1997-06-23 02:59:21 +00:00
parent 4d06d2bed2
commit 93ce34bffe
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/play/decipher.el
View File

@ -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))