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

Set higher priority for headers and hidden citation overlays.

Browse source 
Before the patch, message, headers and hidden citation overlays
had zero priority.  All these overlay have `invisible' property.
Emacs documentation says that we should not make assumptions
about which overlay will prevail when they have the same priority
[1].  It happens to work as we need, but we should not rely on
undocumented behavior.

[1] http://www.gnu.org/s/emacs/manual/html_node/elisp/Overlay-Properties.html
This commit is contained in:
Dmitry Kurochkin 2011-05-26 02:10:15 +04:00 committed by Carl Worth
parent 95ef8da294
commit 4a9d0ac147
2 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
emacs/notmuch-show.el
View file

@ -753,7 +753,9 @@ current buffer, if possible."
;; message. ;; message.
(put-text-property message-start message-end :notmuch-message-extent (cons message-start message-end)) (put-text-property message-start message-end :notmuch-message-extent (cons message-start message-end))
(overlay-put (make-overlay headers-start headers-end) 'invisible headers-invis-spec) (let ((headers-overlay (make-overlay headers-start headers-end)))
(overlay-put headers-overlay 'invisible headers-invis-spec)
(overlay-put headers-overlay 'priority 10))
(overlay-put (make-overlay body-start body-end) 'invisible message-invis-spec) (overlay-put (make-overlay body-start body-end) 'invisible message-invis-spec)
;; Save the properties for this message. Currently this saves the ;; Save the properties for this message. Currently this saves the

1
emacs/notmuch-wash.el
View file

@ -156,6 +156,7 @@ insert before the button, probably for indentation."
(add-to-invisibility-spec invis-spec) (add-to-invisibility-spec invis-spec)
(overlay-put overlay 'invisible (list invis-spec message-invis-spec)) (overlay-put overlay 'invisible (list invis-spec message-invis-spec))
(overlay-put overlay 'isearch-open-invisible #'notmuch-wash-region-isearch-show) (overlay-put overlay 'isearch-open-invisible #'notmuch-wash-region-isearch-show)
(overlay-put overlay 'priority 10)
(overlay-put overlay 'type type) (overlay-put overlay 'type type)
(goto-char (1+ end)) (goto-char (1+ end))
(save-excursion (save-excursion