[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 

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"))
  (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))
    (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
------- End of forwarded message -------

reply via email to

[Prev in Thread] Current Thread [Next in Thread]