From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 18 Oct 2001 08:53:25 +0000 (+0000)
Subject: (what-line): Avoid problems with field properties.
X-Git-Tag: emacs-21.1~35
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=292dd9870019e79f20b45755b26531394278c388;p=emacs.git

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

diff --git a/lisp/simple.el b/lisp/simple.el
index f5e7aa7565a..112d9566d71 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)))