X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fpicture.el;h=c618b7adbc6e55160da3a7d7028b0b11d1912c21;hb=59483252003895f7e52f747b322c84073c676922;hp=a2b3a21ff3b002aa6599eecb98c0fe94614cc800;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/picture.el b/lisp/picture.el
index a2b3a21..c618b7a 100644
--- 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)))