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

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):

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)))