XEmacs 21.2.38 (Peisino)

[chise/xemacs-chise.git.1] / lisp / picture.el

diff --git a/lisp/picture.el b/lisp/picture.el
index a2b3a21..c618b7a 100644 (file)
--- a/lisp/picture.el
+++ b/lisp/picture.el
@@ -90,7 +90,7 @@ With argument, move that many columns."
     ;; but we might as well let the user move across them.
     (and (< arg 0)
         (> (current-column) target-column)
-        (forward-char -1))))
+        (backward-char 1))))
 
 (defun picture-backward-column (arg)
   "Move cursor left, making whitespace if necessary.
@@ -207,7 +207,7 @@ Do \\[command-apropos] `picture-movement' to see those commands."
     (delete-char -1)
     ;; FSF changes the following to last-command-event.
     (insert last-command-char)
-    (forward-char -1)
+    (backward-char 1)
     (picture-move)
     ;; XEmacs addition:
     (setq zmacs-region-stays nil)))