Mercurial > hg > xemacs-beta

diff lisp/picture.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 262b8bb4a523
children 943eaba38521
line wrap: on
line diff
--- a/lisp/picture.el	Mon Aug 13 11:36:20 2007 +0200
+++ b/lisp/picture.el	Mon Aug 13 11:37:21 2007 +0200
@@ -90,7 +90,7 @@
     ;; 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 @@
     (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)))