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

notmuch.el: Use emacs built-in forward-button and backward-button

Browse source 
There are built-ins, so why not use them?

Signed-off-by: Kan-Ru Chen <kanru@kanru.info>
This commit is contained in:
Kan-Ru Chen 2009-12-01 14:13:53 +08:00 committed by Carl Worth
parent 78c85f053b
commit d9c9e56912
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
notmuch.el
View file

@ -564,12 +564,12 @@ which this thread was originally shown."
(defun notmuch-show-next-button () (defun notmuch-show-next-button ()
"Advance point to the next button in the buffer." "Advance point to the next button in the buffer."
(interactive) (interactive)
(goto-char (button-start (next-button (point))))) (forward-button 1))
(defun notmuch-show-previous-button () (defun notmuch-show-previous-button ()
"Move point back to the previous button in the buffer." "Move point back to the previous button in the buffer."
(interactive) (interactive)
(goto-char (button-start (previous-button (point))))) (backward-button 1))
(defun notmuch-toggle-invisible-action (cite-button) (defun notmuch-toggle-invisible-action (cite-button)
(let ((invis-spec (button-get cite-button 'invisibility-spec))) (let ((invis-spec (button-get cite-button 'invisibility-spec)))