/[emacs]/emacs/lisp/play/decipher.el
ViewVC logotype

Diff of /emacs/lisp/play/decipher.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by pj, Thu Dec 20 18:18:53 2001 UTC revision 1.16.4.1 by miles, Fri Apr 4 06:20:31 2003 UTC
# Line 1  Line 1 
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
# Line 170  in your `.emacs' file.") Line 170  in your `.emacs' file.")
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)

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.16.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26