diff options
| author | Dmitry Kurochkin <dmitry.kurochkin@gmail.com> | 2011-05-26 02:10:15 +0400 |
|---|---|---|
| committer | Carl Worth <cworth@cworth.org> | 2011-06-15 07:07:32 -0700 |
| commit | 4a9d0ac1472f7bd8b785256366720e3e6aa2855f (patch) | |
| tree | 1dcb7cae6688c323065f0551cec4da32160d27ff | |
| parent | 95ef8da29439f2e79115c36ab4d2a80aef1a1462 (diff) | |
Set higher priority for headers and hidden citation overlays.
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
| -rw-r--r-- | emacs/notmuch-show.el | 4 | ||||
| -rw-r--r-- | emacs/notmuch-wash.el | 1 |
2 files changed, 4 insertions, 1 deletions
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 5436b34..a49bbd3 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -753,7 +753,9 @@ current buffer, if possible." ;; message. (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) ;; Save the properties for this message. Currently this saves the diff --git a/emacs/notmuch-wash.el b/emacs/notmuch-wash.el index 8607fb0..92f07c5 100644 --- a/emacs/notmuch-wash.el +++ b/emacs/notmuch-wash.el @@ -156,6 +156,7 @@ insert before the button, probably for indentation." (add-to-invisibility-spec 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 'priority 10) (overlay-put overlay 'type type) (goto-char (1+ end)) (save-excursion |