From 4d251ae727af38fff7c5f69443fe321d512e2918 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 18 Oct 2001 01:05:28 +0000 Subject: [PATCH] (what-line): Avoid problems with field properties. --- lisp/ChangeLog | 4 ++++ lisp/simple.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) 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))) -- 2.39.2