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

2 files changed, 2 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca1bdb0b0df..1e20685832e 100644
--- 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 6b1644d58b0..930cee7f9d5 100644
--- 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)))