X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-tag.el;h=c7a1e3220946ad3a2ec1c1f8afc7b320d9c7ae83;hp=1067f18513018802607276ae92edb4b2654adc0b;hb=df3fab18fe70ea750f6f06da30291c67de7e74f2;hpb=09f6533c3781b61ea634790d4bad38aadf89115c diff --git a/emacs/notmuch-tag.el b/emacs/notmuch-tag.el index 1067f185..c7a1e322 100644 --- a/emacs/notmuch-tag.el +++ b/emacs/notmuch-tag.el @@ -20,9 +20,8 @@ ;; ;; Authors: Carl Worth ;; Damien Cassou -;; + ;;; Code: -;; (require 'cl-lib) (eval-when-compile @@ -32,11 +31,11 @@ (require 'notmuch-lib) -(declare-function notmuch-search-tag "notmuch" tag-changes) -(declare-function notmuch-show-tag "notmuch-show" tag-changes) -(declare-function notmuch-tree-tag "notmuch-tree" tag-changes) - -(autoload 'notmuch-jump "notmuch-jump") +(declare-function notmuch-search-tag "notmuch" + (tag-changes &optional beg end only-matched)) +(declare-function notmuch-show-tag "notmuch-show" (tag-changes)) +(declare-function notmuch-tree-tag "notmuch-tree" (tag-changes)) +(declare-function notmuch-jump "notmuch-jump" (action-map prompt)) (define-widget 'notmuch-tag-key-type 'list "A single key tagging binding." @@ -532,7 +531,8 @@ and vice versa." (and (symbolp name) (symbol-name name)))) (name-string (if name - (if reverse (concat "Reverse " name) + (if reverse + (concat "Reverse " name) name) (mapconcat #'identity tag-change " ")))) (push (list key name-string