[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
vertical-motion
From: |
KOBAYASHI Yasuhiro |
Subject: |
vertical-motion |
Date: |
Thu, 24 Aug 2006 14:13:30 +0900 |
User-agent: |
Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.50 (windows-nt) |
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>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- vertical-motion,
KOBAYASHI Yasuhiro <=