;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\317%\210\323\320!\210\310\324\312\313\325DD\326\316\327%\210\310\330\312\313\331DD\332\316\333%\207" [custom-declare-group decipher nil "Cryptanalyze monoalphabetic substitution ciphers." :prefix "decipher-" :group games custom-declare-variable decipher-force-uppercase funcall function #[0 "\300\207" [t] 1 #1=""] "Non-nil means to convert ciphertext to uppercase.\nnil means the case of the ciphertext is preserved.\nThis variable must be set before typing `\\[decipher]'." :type boolean decipher-ignore-spaces #[0 "\300\207" [nil] 1 #1#] "Non-nil means to ignore spaces and punctuation when counting digrams.\nYou should set this to nil if the cipher message is divided into words,\nor t if it is not.\nThis variable is buffer-local." make-variable-buffer-local decipher-undo-limit #[0 "\300\207" [5000] 1 #1#] "The maximum number of entries in the undo list.\nWhen the undo list exceeds this number, 100 entries are deleted from\nthe tail of the list." integer decipher-mode-hook #[0 "\300\207" [nil] 1 #1#] "Hook to run upon entry to decipher." hook] 8)
#@39 Font Lock keywords for Decipher mode.
(defvar decipher-font-lock-keywords '(("^:.*" . font-lock-keyword-face) ("^>.*" . font-lock-string-face) ("^%!.*" . font-lock-constant-face) ("^%.*" . font-lock-comment-face) ("\\`(\\([a-z]+\\) +\\([A-Z]+\\)" (1 font-lock-string-face) (2 font-lock-keyword-face)) ("^)\\([A-Z ]+\\)\\([a-z ]+\\)" (1 font-lock-keyword-face) (2 font-lock-string-face))) (#$ . 1263))
#@27 Keymap for Decipher mode.
(defvar decipher-mode-map (byte-code "\300 \301
!\210\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\302
\311\312#\210\302
\313\314#\210\302
\315\316#\210\302
\317\320#\210\302
\321\322#\210\302
\323\324#\210\302
\325\322#\210\302
\326\322#\210\327\211\330X\203^\302\331!\324#\210\211T\262
\202I\210\207" [make-keymap suppress-keymap define-key "A" decipher-show-alphabet "C" decipher-complete-alphabet "D" decipher-digram-list "F" decipher-frequency-count "M" decipher-make-checkpoint "N" decipher-adjacency-list "R" decipher-restore-checkpoint "U" decipher-undo " " decipher-keypress [remap undo] [remap advertised-undo] 97 122 vector] 6) (#$ . 1670))
#@33 Keymap for Decipher-Stats mode.
(defvar decipher-stats-mode-map (byte-code "\300 \301
!\210\302
\303\304#\210\302
\305\306#\210\302
\307\310#\210\207" [make-keymap suppress-keymap define-key "D" decipher-digram-list "F" decipher-frequency-count "N" decipher-adjacency-list] 5) (#$ . 2367))
#@29 Decipher mode syntax table.
(defvar decipher-mode-syntax-table (byte-code "\300 \301\211\302X\203\303
\304#\210\211T\262
\202
\207" [make-syntax-table 48 57 modify-syntax-entry "_"] 6) (#$ . 2663))
(defvar decipher-alphabet nil nil)
(make-variable-buffer-local 'decipher-alphabet)
#@147 The buffer which displays statistics for this ciphertext.
Do not access this variable directly, use the function
`decipher-stats-buffer' instead.
(defvar decipher-stats-buffer nil (#$ . 2956))
(make-variable-buffer-local 'decipher-stats-buffer)
#@41 The number of entries in the undo list.
(defvar decipher-undo-list-size 0 (#$ . 3207))
(make-variable-buffer-local 'decipher-undo-list-size)
#@124 The undo list for this buffer.
Each element is either a cons cell (PLAIN-CHAR . CIPHER-CHAR) or a
list of such cons cells.
(defvar decipher-undo-list nil (#$ . 3355))
(make-variable-buffer-local 'decipher-undo-list)
(defvar decipher-pending-undo-list nil)
#@74 See the functions decipher-loop-with-breaks and decipher-loop-no-breaks.
(defvar decipher-char nil (#$ . 3617))
#@74 Format a buffer of ciphertext for cryptanalysis and enter Decipher mode.
(defalias 'decipher #[0 "db\210n\204\n\301c\210eb\210\302\303!\203\304\305!\210\202Z\306c\210\307m\204S\302\310!\203.\307y\210\202\311 \210l\203;\307y\210\202\312c\210`\262
\307y\210\203M\313
`\"\210\314c\210\202\210\315 \210\315 \210eb\210\316y\210\317 \207" [decipher-force-uppercase "\n" looking-at "^(abcdefghijklmnopqrstuvwxyz   ABCDEFGHIJKLMNOPQRSTUVWXYZ   -\\*-decipher-\\*-\n)" message "Buffer is already formatted, entering Decipher mode..." "(abcdefghijklmnopqrstuvwxyz   ABCDEFGHIJKLMNOPQRSTUVWXYZ   -*-decipher-*-\n)\n\n" nil "^%" delete-horizontal-space ":" upcase-region ">\n" delete-blank-lines 3 decipher-mode] 4 (#$ . 3735) nil])
(defvar decipher-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [decipher-mode-hook variable-documentation put "Hook run after entering Decipher mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp decipher-mode-map definition-name decipher-mode] 4)
(defvar decipher-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [decipher-mode-abbrev-table decipher-mode-map variable-documentation put purecopy "Keymap for `decipher-mode'." boundp decipher-mode-syntax-table definition-name decipher-mode (lambda (#1=#:def-tmp-var) (defvar decipher-mode-syntax-table #1#)) make-syntax-table "Syntax table for `decipher-mode'." (lambda (#1#) (defvar decipher-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `decipher-mode'." derived-mode-parent] 5)
#@772 Major mode for decrypting monoalphabetic substitution ciphers.
Lower-case letters enter plaintext.
Upper-case letters are commands.

The buffer is made read-only so that normal Emacs commands cannot
modify it.

The most useful commands are:
\<decipher-mode-map>
\[decipher-digram-list]  Display a list of all digrams & their frequency
\[decipher-frequency-count]  Display the frequency of each ciphertext letter
\[decipher-adjacency-list]  Show adjacency list for current letter (lists letters appearing next to it)
\[decipher-make-checkpoint]  Save the current cipher alphabet (checkpoint)
\[decipher-restore-checkpoint]  Restore a saved cipher alphabet (checkpoint)

This mode runs the hook `decipher-mode-hook', as the final or
penultimate step during initialization.
(defalias 'decipher-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\307\315\203&\315edU\204/\316 \210\306\317!\210\320\321\322\323\315\307$\210\307)\324\325!\207" [delay-mode-hooks major-mode mode-name decipher-mode-map decipher-mode-syntax-table decipher-mode-abbrev-table make-local-variable t kill-all-local-variables decipher-mode "Decipher" use-local-map set-syntax-table nil decipher-read-alphabet font-lock-defaults (decipher-font-lock-keywords t) add-hook change-major-mode-hook #[0 "\302\211\211\207" [buffer-read-only buffer-undo-list nil] 3] run-mode-hooks decipher-mode-hook local-abbrev-table buffer-undo-list indent-tabs-mode decipher-force-uppercase case-fold-search buffer-read-only] 5 (#$ . 5635) nil])
(put 'decipher-mode 'mode-class 'special)
#@44 Enter a plaintext or ciphertext character.
(defalias 'decipher-keypress #[0 "\303\304\212\212\305 \210g\211\306U\203\307\202:\211\310U\203\304\202:\211\311U\203*\312\262\307\202:\211\313U\2037\312\262\304\202:\314\315!\262
)\204F\304\316y\210)g\n
z\317U\204U\211\320U\204Z\"\210\266*\210\304u\207" [buffer-read-only goal-column last-command-event decipher-set-map nil beginning-of-line 58 t 62 40 decipher-alphabet-keypress 41 error "Bad location" -1 119 32] 6 (#$ . 7214) [nil (decipher-mode)]])
#@12 

(fn A B)
(defalias 'decipher-alphabet-keypress #[514 "
\301Y\203
\302X\203\303\"\207
\304Y\203;
\305X\203;\211\306U\2036\307\"A\211\262\306U?\205:\303
\306\"\207\303
\"\207\310\311!\207" [decipher-alphabet 65 90 decipher-set-map 97 122 32 assoc error "Bad character"] 5 (#$ . 7738)])
#@33 Undo a change in Decipher mode.
(defalias 'decipher-undo #[0 "\306	\307=\204\f\310\311!\210\n\312=\204\f\204\310\313!\210\f\211A\242\314\211\211\211@:\2041C\262\211A\262\242\211\262\203f\315
A@\"\262\203[@:\203V\316\"\202YB\262\317
A@\306#\210\2021\320!\210)\266\312\321\322!\207" [this-command major-mode last-command decipher-undo-list decipher-pending-undo-list buffer-read-only t decipher-mode error "This buffer is not in Decipher mode" decipher-undo "No further undo information" nil decipher-get-undo append decipher-set-map decipher-add-undo message "Undo!"] 9 (#$ . 8044) [nil (decipher-mode)]])
#@47 Add UNDO-REC to the undo list.

(fn UNDO-REC)
(defalias 'decipher-add-undo #[257 "\211\205 \211B	T\211\nV\205 \n\303Z\211S\233\304\241\210\211\211\262
\207" [decipher-undo-list decipher-undo-list-size decipher-undo-limit 100 nil] 5 (#$ . 8691)])
#@13 

(fn CONS)
(defalias 'decipher-copy-cons #[257 "\211\205	\211@
AB\207" [] 3 (#$ . 8950)])
#@31 

(fn CIPHER-CHAR PLAIN-CHAR)
(defalias 'decipher-get-undo #[514 "\301\302\"!\301\303\"!\304=\203
\207
A\232\203\305\207\211A\304=\203,
\2065\304B\207
\2034\211D\207\211\207" [decipher-alphabet decipher-copy-cons rassoc assoc 32 nil] 7 (#$ . 9048)])
#@49 

(fn CIPHER-CHAR PLAIN-CHAR &optional NO-UNDO)
(defalias 'decipher-set-map #[770 "\226\262\303Y\203\304X\204\305\306!\210\211\204\307\310\"!\210\311!\311!\312\211\211\212eb\210\313	\"\211\262\203M
\314\241\210\315\316\311@!P!\210\317\314!\210\320 \210\321	\"\211\262\203y
A\314U\204f\322A\314\323#\210
\241\210\315\316P!\210\317!\210\320 \210\315\324P!\210\317!\210\323\227\262\325\315\326\312\323#\205\251\327 \262
\330\331#\203\215\317!\210\202\231+\207" [case-fold-search decipher-alphabet font-lock-fontify-region-function 65 90 error "Bad character" decipher-add-undo decipher-get-undo char-to-string nil rassoc 32 search-forward-regexp "^([a-z]*" decipher-insert beginning-of-line assoc decipher-set-map t "^([a-z]+   [A-Z]*" ignore "^:" point-at-eol search-forward end] 12 (#$ . 9319)])
#@13 

(fn CHAR)
(defalias 'decipher-insert #[257 "iS\212\300y\210g\301U\204g\302U\204\303\304!\210\305
\306\"\210l\204#\307\310!\210\311!)\207" [nil 62 41 error "Bad location" move-to-column t delete-char 1 insert-and-inherit] 5 (#$ . 10167)])
#@220 Checkpoint the current cipher alphabet.
This records the current alphabet so you can return to it later.
You may have any number of checkpoints.
Type `\[decipher-restore-checkpoint]' to restore a checkpoint.

(fn DESC)
(defalias 'decipher-make-checkpoint #[257 "\211;\204\301\262
\302\211eb\210\303\304!\210\305\306\307\"\210\310`\311Z`\"\262
\303\312\302\313#\204J\314\315\302\307#\203A\316y\210\317\320!\204A\302y\210\321c\210\316y\210\322\323\324\325\"\326\261\210\327 \210\330
\331\321\261)\207" [buffer-read-only "" nil re-search-forward "^)" move-to-column 27 t buffer-substring-no-properties 26 "^%![A-Z ]+!" end re-search-backward "^% *Local Variables:" -1 looking-at "^ *$" 10 "\n%" make-string 69 45 "\n% Checkpoints:\n% abcdefghijklmnopqrstuvwxyz\n" beginning-of-line "%!" "! "] 7 (#$ . 10420) ["sCheckpoint description: " (decipher-mode)]])
#@235 Restore the cipher alphabet from a checkpoint.
If point is not on a checkpoint line, moves to the first checkpoint line.
If point is on a checkpoint, restores that checkpoint.

Type `\[decipher-make-checkpoint]' to make a checkpoint.
(defalias 'decipher-restore-checkpoint #[0 "\301 \210\302\303!\203'\304\305!\306eb\210\307\310!\210l\204 `\306\210`|\210\211c\210\311 )\207eb\210\307\312\306\313#\2039\314\315\316\317!\"\207\320\321!\207" [buffer-read-only beginning-of-line looking-at "%!\\([A-Z ]+\\)!" match-string 1 nil re-search-forward "^)" decipher-resync "^%![A-Z ]+!" t message "Select the checkpoint to restore and type `%s'" substitute-command-keys "\\[decipher-restore-checkpoint]" error "No checkpoints in this buffer"] 4 (#$ . 11289) [nil (decipher-mode)]])
#@201 Complete the cipher alphabet.
This fills any blanks in the cipher alphabet with the unused letters
in alphabetical order.  Use this when you have a keyword cipher and
you have determined the keyword.
(defalias 'decipher-complete-alphabet #[0 "\302\303\211\211\211A\262\242\211\262\2039
A\304=\203\305\"\203(T\262\202\304B
B\262
\306@\307#\210\202\310
!)\207" [decipher-alphabet buffer-read-only 65 nil 32 rassoc decipher-set-map t decipher-add-undo] 9 (#$ . 12073) [nil (decipher-mode)]])
#@58 Display the current cipher alphabet in the message line.
(defalias 'decipher-show-alphabet #[0 "\301\302\303\304\305#\"\207" [decipher-alphabet message "%s" mapconcat #[257 "\300
@!\300A!P\207" [char-to-string] 4 "\n\n(fn A)"] ""] 6 (#$ . 12589) [nil (decipher-mode)]])
#@171 Reprocess the buffer using the alphabet from the top.
This regenerates all deciphered plaintext and clears the undo list.
You should use this if you edit the ciphertext.
(defalias 'decipher-resync #[0 "\304\305!\210\306\211\211
\212\307 \210	\262eb\210\310\311\306\312#\203!\313\314\306\211#\210\310\315\306\312#\2032\313\316\306\211#\210\202!\307 \210\211A\262\242\211\262\203R\211A\317=\2045\320
A@\"\210\2025*\266\306\321\304\322!\207" [buffer-read-only decipher-alphabet decipher-undo-list decipher-undo-list-size message "Reprocessing buffer..." nil decipher-read-alphabet re-search-forward "^).+" t replace-match ")" "^>.+" ">" 32 decipher-set-map 0 "Reprocessing buffer...done"] 7 (#$ . 12868) [nil (decipher-mode)]])
#@67 Build the decipher-alphabet from the alphabet line in the buffer.
(defalias 'decipher-read-alphabet #[0 "\212eb\210\301\302!\210\303\304\305\"\210\306\307\211\310Y\205&\311u\210\211gBB\211S\262
\202\262
)\207" [decipher-alphabet search-forward-regexp "^)" move-to-column 27 t nil 122 97 -1] 3 (#$ . 13614)])
#@55 Display the frequency count in the statistics buffer.
(defalias 'decipher-frequency-count #[0 "\300 \210\301\302\303\"\207" [decipher-analyze decipher-display-regexp "^A" "^[A-Z][A-Z]"] 3 (#$ . 13934) [nil (decipher-mode)]])
#@55 Display the list of digrams in the statistics buffer.
(defalias 'decipher-digram-list #[0 "\300 \210\301\302\303\"\207" [decipher-analyze decipher-display-regexp "[A-Z][A-Z] +[0-9]" "^$"] 3 (#$ . 14165) [nil (decipher-mode)]])
#@671 Display the adjacency list for the letter at point.
The adjacency list shows all letters which come next to CIPHER-CHAR.

An adjacency list (for the letter X) looks like this:
       1 1         1     1   1       3 2 1             3   8
X: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z *  11   14   9%
     1 1                 1       2   1   1     2       5   7
This says that X comes before D once, and after B once.  X begins 5
words, and ends 3 words (`*' represents a space).  X comes before 8
different letters, after 7 different letters, and is next to a total
of 11 different letters.  It occurs 14 times, making up 9% of the
ciphertext.

(fn CIPHER-CHAR)
(defalias 'decipher-adjacency-list #[257 "\300 \210\301\211r\302 q\210eb\210\303\304\305\"\301\306#\204\307\310\"\210\311y\210`\262\312y\210`\262
)\313\"\207" [decipher-analyze nil decipher-stats-buffer re-search-forward format "^%c: " t error "Character `%c' is not used in ciphertext" -1 3 decipher-display-range] 7 (#$ . 14399) [(byte-code "g\226C\207" [] 1) (decipher-mode)]])
#@64 Perform frequency analysis on the current buffer if necessary.
(defalias 'decipher-analyze #[0 "\302=\206\303=\203\304	!\203\305	!\206\306 \207\307\310!\207" [major-mode decipher-stats-buffer decipher-stats-mode decipher-mode bufferp buffer-name decipher-analyze-buffer error "This buffer is not in Decipher mode"] 2 (#$ . 15463)])
#@262 Display text between START and END in the statistics buffer.
START and END are positions in the statistics buffer.  Makes the
statistics buffer visible and sizes the window to just fit the
displayed text, but leaves the current window selected.

(fn START END)
(defalias 'decipher-display-range #[514 "\301 \302 \303p=\204\304!\210b\210\305\303!\204$\306\307\"T\310 Z!\210\311\312!\210\313
!)\207" [pop-up-windows decipher-stats-buffer selected-window t pop-to-buffer one-window-p enlarge-window count-lines window-height recenter 0 select-window] 8 (#$ . 15812)])
#@265 Display text between two regexps in the statistics buffer.

START-REGEXP matches the first line to display.
END-REGEXP matches the line after that which ends the display.
The ending line is included in the display unless it is blank.

(fn START-REGEXP END-REGEXP)
(defalias 'decipher-display-regexp #[514 "\300\211r\301 q\210eb\210\302!\210\303 \210`\262\302!\210\303 \210\304\305!\204$\306y\210`\262
)\307\"\207" [nil decipher-stats-buffer re-search-forward beginning-of-line looking-at "^ *$" 1 decipher-display-range] 7 (#$ . 16393)])
#@450 Loop through ciphertext, calling FUNC once for each letter & word division.

FUNC is called with no arguments, and its return value is unimportant.
It may examine `decipher-char' to see the current ciphertext
character.  `decipher-char' contains either an uppercase letter or a space.

FUNC is called exactly once between words, with `decipher-char' set to
a space.

See `decipher-loop-no-breaks' if you do not care about word divisions.

(fn FUNC)
(defalias 'decipher-loop-with-breaks #[257 "\301\211
\212eb\210 \210\302\303\304\305#\205Ql\204@g\226\211\306Y\203&\307X\204(\301\301=\2034\211\301=\2047 \210\262
\304u\210\202\301=\204\301\211\262
 \210\202*\207" [decipher-char 32 search-forward-regexp "^:" nil t 65 90] 8 (#$ . 16944)])
#@381 Loop through ciphertext, calling FUNC once for each letter.

FUNC is called with no arguments, and its return value is unimportant.
It may examine `decipher-char' to see the current ciphertext letter.
`decipher-char' contains an uppercase letter.

Punctuation and spacing in the ciphertext are ignored.
See `decipher-loop-with-breaks' if you care about word divisions.

(fn FUNC)
(defalias 'decipher-loop-no-breaks #[257 "\301\212eb\210\302\303\301\304#\205*l\204g\226\211\305Y\203$\306X\203$\211 \210\301u\210\202*\207" [decipher-char nil search-forward-regexp "^:" t 65 90] 6 (#$ . 17712)])
#@177 Insert frequency counts in current buffer.
Each element of FREQ-LIST is a list (LETTER FREQ ...).
TOTAL is the total number of letters in the ciphertext.

(fn FREQ-LIST TOTAL)
(defalias 'decipher-insert-frequency-counts #[514 "\300\301
\302V\205=\262
\211\203/\211@@\303\304@A@\305\306@A@_\"#\261\210\300
\233\262
\202\307c\210A\262
S\262\202\207" [4 nil 0 format "%4d%3d%%  " floor 100.0 10] 11 (#$ . 18322)])
(defalias 'decipher--analyze #[0 "\306\307	#\310\n\"\206\n\311BB\211@\211
AT\241\266\312Y\203=\f\312ZH	\313=\2031\314\2024	\312Z

HTI\266	\312Y\203o
	\312Z

HTI\266\202\203o
	\312ZH\313=\203c\314\202f\312Z

HTI\266	\211\207" [decipher--prev-char decipher-char decipher--digram decipher--digram-list decipher--before decipher--freqs format "%c%c" assoc 0 65 32 26 decipher--after] 6])
#@57 Generate the counts for an adjacency list.

(fn COUNTS)
(defalias 'decipher--digram-counts #[257 "\300C\301\302\303\"\304#\305\306\307H\300V\203\242S\202\242\"P\207" [0 mapconcat make-closure #[257 "\211\301V\203\300\211\242T\240\210\302\207\211\303V\203\300\211\242T\240\210\304\305\"\207\306\207" [V0 99 "XX" 0 format "%2d" "  "] 4 "\n\n(fn X)"] "" format "%4d" 26] 7 (#$ . 19168)])
#@96 Count the number of different letters a letter appears next to.

(fn BEFORE-COUNT AFTER-COUNT)
(defalias 'decipher--digram-total #[514 "\300\301\211S\211\262\300Y\203#
H\300V\204
H\300V\203
T\262\202
\207" [0 26] 6 (#$ . 19573)])
#@119 Perform frequency analysis and store results in statistics buffer.
Creates the statistics buffer if it doesn't exist.
(defalias 'decipher-analyze-buffer #[0 "\203\306\202	\307\310\311\312\"\310\311\312\"\310\311\313\"\313\312\211\211
3\314\315!\210\311\211S\211\262\313Y\203J

\310\316\313\"I\210\f
\310\316\313\"I\210\202-\210\203l\317\320!\210\311\211S\211\262\313Y\203h\f
H\311\313I\210\202T\210\202p\321\320!\210\314\322!\210\323	\324\"\312\241\210\325\211	\326\"\327\"\311\211S\211\262\313Y\203\253\211\330\\H\331
H\fH\"EB\262H\\\262\202\204\210r\332\333!q\2104\334=\204\277\335\336\337 \"\210\3125\340 \210\341
\"\210\342c\210\325
\343\"\262
\341
\"\210\342\344\345\312#\346\261\210\347	G\350\\\342\"\211\312
\313V\203
	\262
\211\203\f
\211@@\351\352@A\"\261\210
\233\262
\202\364\353 \210\342c\210	A
S\262\202\353\266\325
\354\"\262
\211\312\211\211A\262\242\211\262\203o

A@\313=\204'

@\330Z\262
\342\355\356
H!\342@\357\351\360	AA@\nA@\347\361
A@_\"$\356\f	H!\342\261	\210\202'
\266\3335\362\312!\210.\266\314\312!\207" [decipher-ignore-spaces decipher--digram-list decipher--digram decipher--freqs decipher--after decipher--before 32 42 make-vector 26 nil 0 message "Scanning buffer..." 27 decipher-loop-no-breaks decipher--analyze decipher-loop-with-breaks "Processing results..." last 2 sort #[514 "
@
@\231\207" #1=[] 4 "\n\n(fn A B)"] #[514 "
A
AV\207" #1# 4 "\n\n(fn A B)"] 65 decipher--digram-total decipher-stats-buffer t decipher-stats-mode error "Buffer %s is not in Decipher-Stats mode" buffer-name erase-buffer decipher-insert-frequency-counts 10 #[514 "
A@
A@V\207" #1# 4 "\n\n(fn A B)"] mapconcat #[257 "\300
@!\207" [char-to-string] 3 "\n\n(fn A)"] "\n\n" floor 9 format "%3d   " delete-horizontal-space #[514 "
AA@
AA@V\207" #1# 4 "\n\n(fn A B)"] "  " decipher--digram-counts ": A B C D E F G H I J K L M N O P Q R S T U V W X Y Z *" "%4d %4d %3d%%\n  " 100.0 set-buffer-modified-p decipher--prev-char major-mode buffer-read-only] 24 (#$ . 19821)])
(defvar decipher-stats-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [decipher-stats-mode-hook variable-documentation put "Hook run after entering Decipher-Stats mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp decipher-stats-mode-map definition-name decipher-stats-mode] 4)
(defvar decipher-stats-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [decipher-stats-mode-abbrev-table decipher-stats-mode-map variable-documentation put purecopy "Keymap for `decipher-stats-mode'." boundp decipher-stats-mode-syntax-table definition-name decipher-stats-mode (lambda (#1=#:def-tmp-var) (defvar decipher-stats-mode-syntax-table #1#)) make-syntax-table "Syntax table for `decipher-stats-mode'." (lambda (#1#) (defvar decipher-stats-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `decipher-stats-mode'." derived-mode-parent] 5)
#@187 Major mode for displaying ciphertext statistics.

This mode runs the hook `decipher-stats-mode-hook', as the final or
penultimate step during initialization.

\{decipher-stats-mode-map}
(defalias 'decipher-stats-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\307\211\315\211)\316\317!\207" [delay-mode-hooks major-mode mode-name decipher-stats-mode-map decipher-stats-mode-syntax-table decipher-stats-mode-abbrev-table make-local-variable t kill-all-local-variables decipher-stats-mode "Decipher-Stats" use-local-map set-syntax-table nil run-mode-hooks decipher-stats-mode-hook local-abbrev-table buffer-read-only buffer-undo-list case-fold-search indent-tabs-mode] 3 (#$ . 23122) nil])
(put 'decipher-stats-mode 'mode-class 'special)
#@59 Make the statistics buffer visible, but do not select it.
(defalias 'decipher-display-stats-buffer #[0 "\300 \301 p=\206\302!\210\303
!\207" [decipher-stats-buffer selected-window pop-to-buffer select-window] 4 (#$ . 23896)])
#@229 Return the buffer used for decipher statistics.
If CREATE is non-nil, create the buffer if it doesn't exist.
This is guaranteed to return a buffer in Decipher-Stats mode;
if it can't, it signals an error.

(fn &optional CREATE)
(defalias 'decipher-stats-buffer #[256 "\302=\203p\207\303	!\203(\304	!\203(r	q\210)\302=\204&\305\306\304	!\"\210	\207\211\203W\307\304 \307Q\310
!\303
!\203G\311\300\"\302=\203G\211\202J\312!\266r	q\210\302 \210)	\207\305\313!\207" [major-mode decipher-stats-buffer decipher-stats-mode bufferp buffer-name error "Buffer %s is not in Decipher-Stats mode" "*" get-buffer buffer-local-value generate-new-buffer "No statistics buffer"] 6 (#$ . 24133)])
(provide 'decipher)