procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(count-lines): In selective-display case,

Browse source 
adjust value if end is not at bol.
This commit is contained in:
Richard M. Stallman 1993-11-24 04:35:28 +00:00
parent 675a998f8c
commit 043efc41eb
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/simple.el
View file

@ -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 ()