projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(C3-2E56): Unify U-0002F96A; relate to M-27234.
[chise/xemacs-chise.git-]
/
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)
;; 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.
(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)
(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)))
(picture-move)
;; XEmacs addition:
(setq zmacs-region-stays nil)))