address@hidden: vertical-motion]

[Richard Stallman]

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 -------