1 |
;;; decipher.el --- cryptanalyze monoalphabetic substitution ciphers |
;;; decipher.el --- cryptanalyze monoalphabetic substitution ciphers |
2 |
;; |
;; |
3 |
;; Copyright (C) 1995, 1996 Free Software Foundation, Inc. |
;; Copyright (C) 1995, 1996, 2003 Free Software Foundation, Inc. |
4 |
;; |
;; |
5 |
;; Author: Christopher J. Madsen <chris_madsen@geocities.com> |
;; Author: Christopher J. Madsen <chris_madsen@geocities.com> |
6 |
;; Keywords: games |
;; Keywords: games |
170 |
(define-key decipher-mode-map "R" 'decipher-restore-checkpoint) |
(define-key decipher-mode-map "R" 'decipher-restore-checkpoint) |
171 |
(define-key decipher-mode-map "U" 'decipher-undo) |
(define-key decipher-mode-map "U" 'decipher-undo) |
172 |
(define-key decipher-mode-map " " 'decipher-keypress) |
(define-key decipher-mode-map " " 'decipher-keypress) |
173 |
(substitute-key-definition 'undo 'decipher-undo |
(define-key decipher-mode-map [remap undo] 'decipher-undo) |
174 |
decipher-mode-map global-map) |
(define-key decipher-mode-map [remap advertised-undo] 'decipher-undo) |
|
(substitute-key-definition 'advertised-undo 'decipher-undo |
|
|
decipher-mode-map global-map) |
|
175 |
(let ((key ?a)) |
(let ((key ?a)) |
176 |
(while (<= key ?z) |
(while (<= key ?z) |
177 |
(define-key decipher-mode-map (vector key) 'decipher-keypress) |
(define-key decipher-mode-map (vector key) 'decipher-keypress) |