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

emacs: Make the message-summary highlighting extend to end of visible line.

Browse source 
This will look much nicer than the highlighting terminating at the
end of the summary text.
This commit is contained in:
Carl Worth 2009-12-03 09:48:00 -08:00
parent e1f05f1c20
commit 682102c2df
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
notmuch.el
View file

@ -726,11 +726,11 @@ which this thread was originally shown."
(re-search-forward notmuch-show-header-begin-regexp) (re-search-forward notmuch-show-header-begin-regexp)
(forward-line) (forward-line)
(let ((beg (point-marker)) (let ((beg (point-marker))
(summary-end (copy-marker (line-beginning-position 2)))
(btn nil)) (btn nil))
(end-of-line)
; Inverse video for subject ; Inverse video for subject
(overlay-put (make-overlay beg (point)) 'face '(:inverse-video t)) (overlay-put (make-overlay beg summary-end) 'face '(:inverse-video t))
(setq btn (make-button beg (point) :type 'notmuch-button-body-toggle-type)) (setq btn (make-button beg summary-end :type 'notmuch-button-body-toggle-type))
(forward-line 1) (forward-line 1)
(end-of-line) (end-of-line)
(let ((beg-hidden (point-marker))) (let ((beg-hidden (point-marker)))