(decipher-mode): Don't call decipher-read-alphabet if buffer is empty.

diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el
index 7c08856da80853ad226c8be5295d0e8a710bbdf2..00bcbbf13c54fcfe6bff527fd402b76162aeb600 100644 (file)
--- a/lisp/play/decipher.el
+++ b/lisp/play/decipher.el
@@ -305,7 +305,8 @@ The most useful commands are:
       (setq case-fold-search nil))      ;Case is significant when searching
   (use-local-map decipher-mode-map)
   (set-syntax-table decipher-mode-syntax-table)
-  (decipher-read-alphabet)
+  (unless (= (point-min) (point-max))
+    (decipher-read-alphabet))
   (set (make-local-variable 'font-lock-defaults)
        '(decipher-font-lock-keywords t))
   ;; Make the buffer writable when we exit Decipher mode: