summaryrefslogtreecommitdiff
path: root/lisp/mh-e/mh-search.el
diff options
context:
space:
mode:
authorBill Wohler <wohler@newt.com>2006-02-01 23:37:26 +0000
committerBill Wohler <wohler@newt.com>2006-02-01 23:37:26 +0000
commit92486f287962e337c4f67245fbaf11747e58e1d6 (patch)
tree8bf8cbc7bd259313c4aee0cd27771ac45df73b05 /lisp/mh-e/mh-search.el
parentd5dc8c56355ef34ef00a46b487092ee7ee8fa61b (diff)
downloademacs-92486f287962e337c4f67245fbaf11747e58e1d6.tar.gz
emacs-92486f287962e337c4f67245fbaf11747e58e1d6.tar.bz2
emacs-92486f287962e337c4f67245fbaf11747e58e1d6.zip
(which-func-mode): Shush compiler on Emacs 21 too.
Diffstat (limited to 'lisp/mh-e/mh-search.el')
-rw-r--r--lisp/mh-e/mh-search.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el
index b58539c615c..f1292dd8e1e 100644
--- a/lisp/mh-e/mh-search.el
+++ b/lisp/mh-e/mh-search.el
@@ -51,7 +51,6 @@
(require 'gnus-util)
(require 'imenu)
-(mh-require 'which-func nil t)
(defvar mh-searcher nil
"Cached value of chosen search program.")
@@ -1410,8 +1409,12 @@ being the list of messages originally from that folder."
(when cur-msg (mh-goto-msg cur-msg t t))
(set-buffer-modified-p old-buffer-modified-flag)))
+(mh-require 'which-func nil t)
+
;; Shush compiler.
-(eval-when-compile (mh-do-in-xemacs (defvar which-func-mode)))
+(eval-when-compile
+ (if (or mh-xemacs-flag (< emacs-major-version 22))
+ (defvar which-func-mode)))
;;;###mh-autoload
(defun mh-index-create-imenu-index ()