X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch-lib.el;h=c906ca76eda2f9e21e9b423e05debf6c53f7ba01;hb=9b7e0dcb9a8bd8a5898d9dd68715f3a0d0e5280d;hp=e33e69a43ad5c6b2b8c72e17ec22e20241dc8e68;hpb=3a602dc27aa7a830c0bf00838dfdbb70165858d5;p=notmuch diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index e33e69a4..c906ca76 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -69,6 +69,9 @@ ;; +(defvar notmuch-search-history nil + "Variable to store notmuch searches history.") + (defcustom notmuch-saved-searches nil "A list of saved searches to display." :type '(alist :key-type string :value-type string) @@ -148,14 +151,14 @@ the user hasn't set this variable with the old or new value." (setq list (cdr list))) (nreverse out))) -; This lets us avoid compiling these replacement functions when emacs -; is sufficiently new enough to supply them alone. We do the macro -; treatment rather than just wrapping our defun calls in a when form -; specifically so that the compiler never sees the code on new emacs, -; (since the code is triggering warnings that we don't know how to get -; rid of. -; -; A more clever macro here would accept a condition and a list of forms. +;; This lets us avoid compiling these replacement functions when emacs +;; is sufficiently new enough to supply them alone. We do the macro +;; treatment rather than just wrapping our defun calls in a when form +;; specifically so that the compiler never sees the code on new emacs, +;; (since the code is triggering warnings that we don't know how to get +;; rid of. +;; +;; A more clever macro here would accept a condition and a list of forms. (defmacro compile-on-emacs-prior-to-23 (form) "Conditionally evaluate form only on emacs < emacs-23." (list 'when (< emacs-major-version 23)