changeset 40018:3f454d4a2b7c

(what-line): Avoid problems with field properties.
author Miles Bader <miles@gnu.org>
date Thu, 18 Oct 2001 01:02:37 +0000
parents 108a6f3e0498
children dde4f30ed285
files lisp/simple.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)))