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

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 031cdd4c4c..7f34380075 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-18  Miles Bader  <[email protected]>
+
+	* simple.el (what-line): Avoid problems with field properties.
+
 2001-10-17  Eli Zaretskii  <[email protected]>
 
 	* wid-edit.el (widget-field-face, widget-single-line-field-face):
diff --git a/lisp/simple.el b/lisp/simple.el
index deb1737f4f..3879003b55 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)))