Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
9d43f6f1
Commit
9d43f6f1
authored
Feb 06, 2002
by
Richard M. Stallman
Browse files
(rmail-toggle-header): Avoid possibly slow call to
rmail-count-screen-lines starting from (point-min).
parent
4103b337
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
6 deletions
+1
-6
lisp/mail/rmail.el
lisp/mail/rmail.el
+1
-6
No files found.
lisp/mail/rmail.el
View file @
9d43f6f1
...
...
@@ -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
()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment