diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-24 04:35:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-24 04:35:28 +0000 |
| commit | 043efc41eb942f4712b83bf93f4193767ff842b5 (patch) | |
| tree | 0d658d82fc0a55b746595f737316adf828cd6b65 /lisp | |
| parent | 675a998f8c373b8d3ec180524dc22568a597dfce (diff) | |
| download | emacs-043efc41eb942f4712b83bf93f4193767ff842b5.tar.gz emacs-043efc41eb942f4712b83bf93f4193767ff842b5.tar.bz2 emacs-043efc41eb942f4712b83bf93f4193767ff842b5.zip | |
(count-lines): In selective-display case,
adjust value if end is not at bol.
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 () |