# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1192863186 0
# Node ID e621c5bb81d00a5f1d03b259ba2ef4c9f065f82c
# Parent  786d3a985758e40aa8e5f4a3563fa2e6897fa8fd
* play/decipher.el (decipher-keypress): Use forward-line.

diff -r 786d3a985758 -r e621c5bb81d0 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Oct 20 06:30:18 2007 +0000
+++ b/lisp/ChangeLog	Sat Oct 20 06:53:06 2007 +0000
@@ -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 -r 786d3a985758 -r e621c5bb81d0 lisp/play/decipher.el
--- a/lisp/play/decipher.el	Sat Oct 20 06:30:18 2007 +0000
+++ b/lisp/play/decipher.el	Sat Oct 20 06:53:06 2007 +0000
@@ -352,7 +352,7 @@
                (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)))