* play/decipher.el (decipher-keypress): Use forward-line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca1bdb0b0dfee2a40b73bffb9349859f09030e64..1e20685832eeb31fbc4464969048c93b95ed6ccc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -9,6 +9,7 @@
        (compilation-skip-threshold, compilation-skip-visited): Move
        definitions earlier.
 
+       * play/decipher.el (decipher-keypress):
        * play/zone.el (zone-fall-through-ws):
        * play/landmark.el (lm-move-down, lm-move-up):
        * play/handwrite.el (handwrite):

diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el
index 6b1644d58b0ae06fd713095851c6c4789d02d3bb..930cee7f9d5b2567af26b38b193abd293a64ad43 100644 (file)
--- a/lisp/play/decipher.el
+++ b/lisp/play/decipher.el
@@ -352,7 +352,7 @@ The most useful commands are:
                (t
                 (error "Bad location")))))
           (let (goal-column)
-            (previous-line 1)))
+            (forward-line -1)))
       (let ((char-a (following-char))
             (char-b (decipher-last-command-char)))
         (or (and (not (= ?w (char-syntax char-a)))