1. xemacs
  2. xemacs-21.4

Source

xemacs-21.4 / lisp / picture.el

Diff from to

File lisp/picture.el

     ;; 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.
     (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)))