# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1003366957 0
# Node ID 3f454d4a2b7c8a84a77bb4382c0939427d5a687a
# Parent  108a6f3e0498c59bfed38ff80a0f486440ba610e
(what-line): Avoid problems with field properties.

diff -r 108a6f3e0498 -r 3f454d4a2b7c lisp/simple.el
--- a/lisp/simple.el	Wed Oct 17 18:49:38 2001 +0000
+++ b/lisp/simple.el	Thu Oct 18 01:02:37 2001 +0000
@@ -456,10 +456,10 @@
       (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)))