Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
88 (move-to-column-force target-column) 88 (move-to-column-force target-column)
89 ;; Picture mode isn't really suited to multi-column characters, 89 ;; Picture mode isn't really suited to multi-column characters,
90 ;; but we might as well let the user move across them. 90 ;; but we might as well let the user move across them.
91 (and (< arg 0) 91 (and (< arg 0)
92 (> (current-column) target-column) 92 (> (current-column) target-column)
93 (forward-char -1)))) 93 (backward-char 1))))
94 94
95 (defun picture-backward-column (arg) 95 (defun picture-backward-column (arg)
96 "Move cursor left, making whitespace if necessary. 96 "Move cursor left, making whitespace if necessary.
97 With argument, move that many columns." 97 With argument, move that many columns."
98 (interactive "p") 98 (interactive "p")
205 (setq arg (1- arg)) 205 (setq arg (1- arg))
206 (move-to-column-force (1+ (current-column))) 206 (move-to-column-force (1+ (current-column)))
207 (delete-char -1) 207 (delete-char -1)
208 ;; FSF changes the following to last-command-event. 208 ;; FSF changes the following to last-command-event.
209 (insert last-command-char) 209 (insert last-command-char)
210 (forward-char -1) 210 (backward-char 1)
211 (picture-move) 211 (picture-move)
212 ;; XEmacs addition: 212 ;; XEmacs addition:
213 (setq zmacs-region-stays nil))) 213 (setq zmacs-region-stays nil)))
214 214
215 (defun picture-clear-column (arg) 215 (defun picture-clear-column (arg)