(what-line): Avoid problems with field properties.

diff --git a/lisp/simple.el b/lisp/simple.el
index f5e7aa7565a2adf59439500855bd64f2e610ad0a..112d9566d718b70098a53252e3e867c914990fa8 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -456,10 +456,10 @@ that uses or sets the mark."
       (save-restriction
        (goto-char (point-min))
        (widen)
-       (beginning-of-line)
+       (forward-line 0)
        (setq start (point))
        (goto-char opoint)
-       (beginning-of-line)
+       (forward-line 0)
        (if (/= start 1)
            (message "line %d (narrowed line %d)"
                     (1+ (count-lines 1 (point)))