X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch-jump.el;h=ff622055f0cf5c4058caec4c8d5c71253e50e5f5;hb=adfded9ed0a5a4b06886f462314cd4511cb72d47;hp=e302fe00df85b9ed18b00bf687fd412f7cebb9f9;hpb=e1a700067a22214f54064c281219fbbbef87de06;p=notmuch diff --git a/emacs/notmuch-jump.el b/emacs/notmuch-jump.el index e302fe00..ff622055 100644 --- a/emacs/notmuch-jump.el +++ b/emacs/notmuch-jump.el @@ -29,11 +29,6 @@ (require 'notmuch-lib) (require 'notmuch-hello) -(eval-and-compile - (unless (fboundp 'window-body-width) - ;; Compatibility for Emacs pre-24 - (defalias 'window-body-width 'window-width))) - ;;;###autoload (defun notmuch-jump-search () "Jump to a saved search by shortcut key. @@ -73,6 +68,7 @@ please customize shortcut keys in notmuch-saved-searches.")))) (defvar notmuch-jump--action nil) +;;;###autoload (defun notmuch-jump (action-map prompt) "Interactively prompt for one of the keys in ACTION-MAP.