mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 15:00:45 -08:00
Code Issues Projects Releases Wiki Activity

(decipher-get-undo-copy): New function.

Browse source 
(decipher-get-undo): Use it.
This commit is contained in:
Richard M. Stallman 1996-08-17 03:12:18 +00:00
parent f2b3cdc312
commit 4f2c8fbb60
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/play/decipher.el
View file

@ -125,11 +125,13 @@ the tail of the list.")
(1 font-lock-keyword-face)
(2 font-lock-string-face)))
"Expressions to fontify in Decipher mode.
Ciphertext uses `font-lock-keyword-face', plaintext uses
`font-lock-string-face', comments use `font-lock-comment-face', and
checkpoints use `font-lock-reference-face'. You can customize the
display by changing these variables. For best results, I recommend
that all faces use the same background color.
For example, to display ciphertext in the `bold' face, use
(add-hook 'decipher-mode-hook
(lambda () (set (make-local-variable 'font-lock-keyword-face)
@ -406,13 +408,17 @@ 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)
(if cons
(cons (car cons) (cdr cons))))
(defun decipher-get-undo (cipher-char plain-char)
;; Return an undo record that will undo the result of
;; (decipher-set-map CIPHER-CHAR PLAIN-CHAR)
;; We must use copy-list because the original cons cells will be
;; We must copy the cons cell because the original cons cells will be
;; modified using setcdr.
(let ((cipher-map (copy-list (rassoc cipher-char decipher-alphabet)))
(plain-map (copy-list (assoc plain-char decipher-alphabet))))
(let ((cipher-map (decipher-get-undo-copy (rassoc cipher-char decipher-alphabet)))
(plain-map (decipher-get-undo-copy (assoc plain-char decipher-alphabet))))
(cond ((equal ?\ plain-char)
cipher-map)
((equal cipher-char (cdr plain-map))