From: Miles Bader Date: Thu, 18 Oct 2001 01:05:28 +0000 (+0000) Subject: (what-line): Avoid problems with field properties. X-Git-Tag: ttn-vms-21-2-B4~19375 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d251ae727af38fff7c5f69443fe321d512e2918;p=emacs.git (what-line): Avoid problems with field properties. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 031cdd4c4c8..7f34380075c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2001-10-18 Miles Bader + + * simple.el (what-line): Avoid problems with field properties. + 2001-10-17 Eli Zaretskii * wid-edit.el (widget-field-face, widget-single-line-field-face): diff --git a/lisp/simple.el b/lisp/simple.el index deb1737f4f9..3879003b557 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)))