[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
address@hidden: vertical-motion]
From: |
Richard Stallman |
Subject: |
address@hidden: vertical-motion] |
Date: |
Sun, 27 Aug 2006 04:39:49 -0400 |
Would someone please DTRT and ack?
------- Start of forwarded message -------
From: KOBAYASHI Yasuhiro <address@hidden>
To: address@hidden
Date: Thu, 24 Aug 2006 14:13:30 +0900
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Subject: vertical-motion
X-Spam-Status: No, score=0.0 required=5.0 tests=none autolearn=failed
version=3.0.4
It seems that vertical-motion is not right in the case which
some propertized texts are included in the line.
- - Test function:
(defun test-case (n)
;; Preparate the test buffer.
(switch-to-buffer (get-buffer-create "test"))
(erase-buffer)
(let ((pos (point-min)))
(dotimes (i 3) (insert "\t\t\t\t\t\n"))
(while (< pos (point-max))
(and (= (char-after pos) ?\t)
(put-text-property pos (1+ pos) 'display (propertize " >")))
(setq pos (1+ pos))))
;; The following is the test case.
(goto-char (point-min))
(while (< (point) (point-max))
(beginning-of-line)
(forward-char n)
;; If POINT is not on the edge of the line,
;; POINT move to the beginning of the save line.
(vertical-motion 1)))
- - Correct actions.
(test-case 0)
(test-case 5)
- - Strange actions.
(test-case 1)
(test-case 2)
(test-case 3)
(test-case 4)
- --
KOBAYASHI Yasuhiro <address@hidden>
_______________________________________________
emacs-pretest-bug mailing list
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
------- End of forwarded message -------