# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1106005823 0
# Node ID 15fecef37804d7560e4b4248e8287b42466c634a
# Parent  19bde7f71d99bdbea37932ade011172c3e37d404
(decipher-mode): Don't call decipher-read-alphabet if buffer is empty.

diff -r 19bde7f71d99 -r 15fecef37804 lisp/play/decipher.el
--- a/lisp/play/decipher.el	Mon Jan 17 23:49:20 2005 +0000
+++ b/lisp/play/decipher.el	Mon Jan 17 23:50:23 2005 +0000
@@ -305,7 +305,8 @@
       (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: