diff options
| author | Richard M. Stallman | 2005-01-17 23:50:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-01-17 23:50:23 +0000 |
| commit | b64e46503fdc4dc3e5a8613660a5c71b1bb1eaaa (patch) | |
| tree | e07d540261e77b84f4169a77ffb031a11c6d313e | |
| parent | 053be11a8844e0dbc448e7b9a977fb815b438c2f (diff) | |
| download | emacs-b64e46503fdc4dc3e5a8613660a5c71b1bb1eaaa.tar.gz emacs-b64e46503fdc4dc3e5a8613660a5c71b1bb1eaaa.zip | |
(decipher-mode): Don't call decipher-read-alphabet if buffer is empty.
| -rw-r--r-- | lisp/play/decipher.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el index 7c08856da80..00bcbbf13c5 100644 --- a/lisp/play/decipher.el +++ b/lisp/play/decipher.el | |||
| @@ -305,7 +305,8 @@ The most useful commands are: | |||
| 305 | (setq case-fold-search nil)) ;Case is significant when searching | 305 | (setq case-fold-search nil)) ;Case is significant when searching |
| 306 | (use-local-map decipher-mode-map) | 306 | (use-local-map decipher-mode-map) |
| 307 | (set-syntax-table decipher-mode-syntax-table) | 307 | (set-syntax-table decipher-mode-syntax-table) |
| 308 | (decipher-read-alphabet) | 308 | (unless (= (point-min) (point-max)) |
| 309 | (decipher-read-alphabet)) | ||
| 309 | (set (make-local-variable 'font-lock-defaults) | 310 | (set (make-local-variable 'font-lock-defaults) |
| 310 | '(decipher-font-lock-keywords t)) | 311 | '(decipher-font-lock-keywords t)) |
| 311 | ;; Make the buffer writable when we exit Decipher mode: | 312 | ;; Make the buffer writable when we exit Decipher mode: |