lisp/play/decipher.el

67 ;; for checkpoints; see decipher-make-checkpoint & decipher-restore-checkpoint
117 (make-variable-buffer-local 'decipher-ignore-spaces)
155             (lambda () (set (make-local-variable 'font-lock-keyword-face)
163       (setq decipher-mode-map (make-keymap))
169       (define-key decipher-mode-map "M" 'decipher-make-checkpoint)
185       (setq decipher-stats-mode-map (make-keymap))
192 (defvar decipher-mode-syntax-table nil
193   "Decipher mode syntax table")
195 (if decipher-mode-syntax-table
197   (let ((table (make-syntax-table))
200       (modify-syntax-entry c "_" table) ;Digits are not part of words
202     (setq decipher-mode-syntax-table table)))
209 (make-variable-buffer-local 'decipher-alphabet)
215 (make-variable-buffer-local 'decipher-stats-buffer)
219 (make-variable-buffer-local 'decipher-undo-list-size)
225 (make-variable-buffer-local 'decipher-undo-list)
297 \\[decipher-make-checkpoint]  Save the current cipher alphabet (checkpoint)
308   (set-syntax-table decipher-mode-syntax-table)
311   (set (make-local-variable 'font-lock-defaults)
358         (or (and (not (= ?w (char-syntax char-a)))
389   ;; If we don't get all the way thru, make last-command indicate that
516 ;; this header (which is inserted by decipher-make-checkpoint):
524 (defun decipher-make-checkpoint (desc)
546       (insert "\n%" (make-string 69 ?\-)
556 Type `\\[decipher-make-checkpoint]' to make a checkpoint."
892         (decipher--before (make-vector 26 nil))
893         (decipher--after  (make-vector 26 nil))
894         (decipher--freqs   (make-vector 26 0))
900         (aset decipher--before i (make-vector 27 0))
901         (aset decipher--after  i (make-vector 27 0))))