(remove-from-invisibility-spec invis-spec)
(add-to-invisibility-spec invis-spec)
))
- (goto-char (button-end cite-button)))
+ (force-window-update)
+ (redisplay t))
(defun notmuch-show-markup-citations-region (beg end depth)
(goto-char beg)
(let ((cite-button (insert-button cite-button-text)))
(button-put cite-button 'invisibility-spec invis-spec)
(button-put cite-button 'action 'notmuch-toggle-invisible-action)
+ (button-put cite-button 'follow-link t)
(button-put cite-button 'help-echo
- "mouse-2, RET: Show citation")
+ "mouse-1, RET: Show citation")
)
(insert "\n")
(button-put sig-button 'invisibility-spec invis-spec)
(button-put sig-button 'action
'notmuch-toggle-invisible-action)
+ (button-put sig-button 'follow-link t)
(button-put sig-button 'help-echo
- "mouse-2, RET: Show signature")
+ "mouse-1, RET: Show signature")
)
(insert "\n")
(goto-char end))))))