procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(picture-forward-column, picture-backward-column): Allow backward motion

Browse source 
across multi-column characters.
This commit is contained in:
Karl Heuer 1994-03-01 06:19:22 +00:00
parent 54a003f758
commit ad8fb8aec7
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/textmodes/picture.el
View file

@ -76,13 +76,19 @@ If scan reaches end of buffer, stop there without error."
"Move cursor right, making whitespace if necessary.
With argument, move that many columns."
(interactive "p")
(move-to-column-force (+ (current-column) arg)))
(let ((target-column (+ (current-column) arg)))
(move-to-column-force target-column)
;; Picture mode isn't really suited to multi-column characters,
;; but we might as well let the user move across them.
(and (< arg 0)
(> (current-column) target-column)
(forward-char -1))))
(defun picture-backward-column (arg)
"Move cursor left, making whitespace if necessary.
With argument, move that many columns."
(interactive "p")
(move-to-column-force (- (current-column) arg)))
(picture-forward-column (- arg)))
(defun picture-move-down (arg)
"Move vertically down, making whitespace if necessary.