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

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 031cdd4c4c8..7f34380075c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-18  Miles Bader  <miles@gnu.org>
+
+        * simple.el (what-line): Avoid problems with field properties.
+
 2001-10-17  Eli Zaretskii  <eliz@is.elta.co.il>
 
         * wid-edit.el (widget-field-face, widget-single-line-field-face):
diff --git a/lisp/simple.el b/lisp/simple.el
index deb1737f4f9..3879003b557 100644
--- 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)))