diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index e6a24cb49a1..85557739654 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -332,7 +332,11 @@ and the greater of them is not at the start of a line." (setq done (+ 40 done))) (while (re-search-forward "[\n\C-m]" nil t 1) (setq done (+ 1 done))) - done) + (goto-char (point-max)) + (if (and (/= start end) + (not (bolp))) + (1+ done) + done)) (- (buffer-size) (forward-line (buffer-size)))))))) (defun what-cursor-position () |