Mercurial > emacs

comparison lisp/play/decipher.el @ 14545:bd43252760b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Load cl only when compiling.
author Richard M. Stallman <rms@gnu.org>
date Sun, 11 Feb 1996 19:27:29 +0000
parents e260aa3684a5
children 3ae037e10c04
comparison
equal deleted inserted replaced
14544:ef07b51330af 14545:bd43252760b4
1 ;;; decipher.el --- Cryptanalyze monoalphabetic substitution ciphers 1 ;;; decipher.el --- Cryptanalyze monoalphabetic substitution ciphers
2 ;; 2 ;;
3 ;; Copyright (C) 1994 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995, 1996 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Christopher J. Madsen <ac608@yfn.ysu.edu> 5 ;; Author: Christopher J. Madsen <ac608@yfn.ysu.edu>
6 ;; Created: 27 Nov 1994
7 ;; Version: 1.18 (1996/01/19 22:11:55)
8 ;; Keywords: games 6 ;; Keywords: games
9 ;; 7 ;;
10 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
11 ;; 9 ;;
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 10 ;; GNU Emacs is free software; you can redistribute it and/or modify
20 ;; GNU General Public License for more details. 18 ;; GNU General Public License for more details.
21 ;; 19 ;;
22 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs; see the file COPYING. If not, write to 21 ;; along with GNU Emacs; see the file COPYING. If not, write to
24 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
25
26 ;;; Installation:
27 ;;
28 ;; Put decipher.el somewhere in your load-path. Byte-compile it if you
29 ;; wish. Then put the following in your .emacs file:
30 ;; (autoload 'decipher "decipher" nil t)
31 ;; (autoload 'decipher-mode "decipher" nil t)
32 23
33 ;;; Quick Start: 24 ;;; Quick Start:
34 ;; 25 ;;
35 ;; To decipher a message, type or load it into a buffer and type 26 ;; To decipher a message, type or load it into a buffer and type
36 ;; `M-x decipher'. This will format the buffer and place it into 27 ;; `M-x decipher'. This will format the buffer and place it into
86 77
87 ;;;=================================================================== 78 ;;;===================================================================
88 ;;; Variables: 79 ;;; Variables:
89 ;;;=================================================================== 80 ;;;===================================================================
90 81
91 (require 'cl) 82 (eval-when-compile
83 (require 'cl))
92 84
93 (defvar decipher-force-uppercase t 85 (defvar decipher-force-uppercase t
94 "*Non-nil means to convert ciphertext to uppercase. 86 "*Non-nil means to convert ciphertext to uppercase.
95 Nil means the case of the ciphertext is preserved. 87 Nil means the case of the ciphertext is preserved.
96 This variable must be set before typing `\\[decipher]'.") 88 This variable must be set before typing `\\[decipher]'.")