/[emacs]/emacs/lisp/textmodes/picture.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/picture.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by rms, Thu Mar 14 08:57:36 2002 UTC revision 1.40 by rms, Mon Jul 1 07:47:22 2002 UTC
# Line 104  If scan reaches end of buffer, stop ther Line 104  If scan reaches end of buffer, stop ther
104    "Move cursor right, making whitespace if necessary.    "Move cursor right, making whitespace if necessary.
105  With argument, move that many columns."  With argument, move that many columns."
106    (interactive "p\nd")    (interactive "p\nd")
107    (picture-update-desired-column interactive)    (let (deactivate-mark)
108    (setq picture-desired-column (max 0 (+ picture-desired-column arg)))      (picture-update-desired-column interactive)
109    (let ((current-column (move-to-column picture-desired-column t)))      (setq picture-desired-column (max 0 (+ picture-desired-column arg)))
110      (if (and (> current-column picture-desired-column)      (let ((current-column (move-to-column picture-desired-column t)))
111               (< arg 0))        (if (and (> current-column picture-desired-column)
112          ;; It seems that we have just tried to move to the right                 (< arg 0))
113          ;; column of a multi-column character.            ;; It seems that we have just tried to move to the right
114          (forward-char -1))))            ;; column of a multi-column character.
115              (forward-char -1)))))
116    
117  (defun picture-backward-column (arg &optional interactive)  (defun picture-backward-column (arg &optional interactive)
118    "Move cursor left, making whitespace if necessary.    "Move cursor left, making whitespace if necessary.
# Line 124  With argument, move that many columns." Line 125  With argument, move that many columns."
125    "Move vertically down, making whitespace if necessary.    "Move vertically down, making whitespace if necessary.
126  With argument, move that many lines."  With argument, move that many lines."
127    (interactive "p")    (interactive "p")
128    (picture-update-desired-column nil)    (let (deactivate-mark)
129    (picture-newline arg)      (picture-update-desired-column nil)
130    (let ((current-column (move-to-column picture-desired-column t)))      (picture-newline arg)
131      (if (> current-column picture-desired-column)      (let ((current-column (move-to-column picture-desired-column t)))
132          (forward-char -1))))        (if (> current-column picture-desired-column)
133              (forward-char -1)))))
134    
135  (defvar picture-vertical-step 0  (defvar picture-vertical-step 0
136    "Amount to move vertically after text character in Picture mode.")    "Amount to move vertically after text character in Picture mode.")

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26