[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: picture mode
From: |
Richard Stallman |
Subject: |
Re: picture mode |
Date: |
Sun, 30 Jun 2002 14:53:57 -0600 (MDT) |
Does this fix it?
*** picture.el.~1.39.~ Sat Mar 9 23:03:34 2002
--- picture.el Sun Jun 30 14:06:14 2002
***************
*** 106,117 ****
(interactive "p\nd")
(picture-update-desired-column interactive)
(setq picture-desired-column (max 0 (+ picture-desired-column arg)))
! (let ((current-column (move-to-column picture-desired-column t)))
! (if (and (> current-column picture-desired-column)
! (< arg 0))
! ;; It seems that we have just tried to move to the right
! ;; column of a multi-column character.
! (forward-char -1))))
(defun picture-backward-column (arg &optional interactive)
"Move cursor left, making whitespace if necessary.
--- 106,118 ----
(interactive "p\nd")
(picture-update-desired-column interactive)
(setq picture-desired-column (max 0 (+ picture-desired-column arg)))
! (let (deactivate-mark)
! (let ((current-column (move-to-column picture-desired-column t)))
! (if (and (> current-column picture-desired-column)
! (< arg 0))
! ;; It seems that we have just tried to move to the right
! ;; column of a multi-column character.
! (forward-char -1)))))
(defun picture-backward-column (arg &optional interactive)
"Move cursor left, making whitespace if necessary.
***************
*** 124,134 ****
"Move vertically down, making whitespace if necessary.
With argument, move that many lines."
(interactive "p")
! (picture-update-desired-column nil)
! (picture-newline arg)
! (let ((current-column (move-to-column picture-desired-column t)))
! (if (> current-column picture-desired-column)
! (forward-char -1))))
(defvar picture-vertical-step 0
"Amount to move vertically after text character in Picture mode.")
--- 125,136 ----
"Move vertically down, making whitespace if necessary.
With argument, move that many lines."
(interactive "p")
! (let (deactivate-mark)
! (picture-update-desired-column nil)
! (picture-newline arg)
! (let ((current-column (move-to-column picture-desired-column t)))
! (if (> current-column picture-desired-column)
! (forward-char -1)))))
(defvar picture-vertical-step 0
"Amount to move vertically after text character in Picture mode.")