debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 20:08:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Fix backspace to not scroll more than the previous message

Browse source 
The bug was occuring due to counting invisible lines, but then
scrolling past them since they are invisible.
This commit is contained in:
Carl Worth 2010-03-09 08:11:45 -08:00
parent c963098e28
commit c5085642b8
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
notmuch.el
View file

@ -647,7 +647,13 @@ any effects from previous calls to
(condition-case nil (condition-case nil
(scroll-down nil) (scroll-down nil)
((beginning-of-buffer) nil)) ((beginning-of-buffer) nil))
(goto-char (window-start))) (goto-char (window-start))
; Because count-lines counts invivisible lines, we may have
; scrolled to far. If so., notice this and fix it up.
(if (< (point) previous)
(progn
(goto-char previous)
(recenter 0))))
(notmuch-show-previous-message)))) (notmuch-show-previous-message))))
(defun notmuch-show-advance-and-archive () (defun notmuch-show-advance-and-archive ()