mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(rmail-toggle-header): Avoid possibly slow call to

Browse Source 
rmail-count-screen-lines starting from (point-min).
This commit is contained in:
Richard M. Stallman 2002-02-06 15:00:31 +00:00
parent 4103b3373e
commit 9d43f6f103
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/mail/rmail.el
View File

@ -2058,12 +2058,7 @@ otherwise, show it in full."
(recenter old-screen-line)
(if (and all-headers-visible
(not (= (window-start) (point-min))))
(let ((lines-offscreen (rmail-count-screen-lines
(point-min)
(window-start window))))
(recenter (min (+ old-screen-line lines-offscreen)
;; last line of window
(- (window-height) 2))))))))))
(recenter (- (window-height) 2))))))))
(rmail-highlight-headers))))
(defun rmail-narrow-to-non-pruned-header ()