vertical-motion and point

The NEWS file claims that vertical-motion is corrected in 21.0. Then how I can use the new position (see below)? (defun test-v-m (&optional buf) (let* ((buf (or buf (current-buffer))) (win (get-buffer-window buf t))) (save-excursion (set-buffer buf) (goto-char (point-min)) (princ (point)) (princ " ") (vertical-motion 1 win) (point)))) ; Run in *scratch* (test-v-m) -> 1 28 (test-v-m (get-buffer "*mail to xemacs-beta(a)xemacs.org*")) -> 1 1 20.4 gives different results for the second test... -- Pekka Marjola * pema(a)iki.fi * http://www.iki.fi/pema/ * PGPid 0x2865206D