vertical-motion

[KOBAYASHI Yasuhiro]

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>