Commit 92486f28 authored by Bill Wohler's avatar Bill Wohler
Browse files

(which-func-mode): Shush compiler on Emacs 21 too.

parent d5dc8c56
2006-02-01 Bill Wohler <wohler@newt.com> 2006-02-01 Bill Wohler <wohler@newt.com>
* mh-search.el (which-func-mode): Shush compiler on Emacs 21 too.
* mh-alias.el (mh-alias-gecos-name): Use * mh-alias.el (mh-alias-gecos-name): Use
mh-replace-regexp-in-string instead of replace-regexp-in-string. mh-replace-regexp-in-string instead of replace-regexp-in-string.
(crm, multi-prompt): Use mh-require instead of require. (crm, multi-prompt): Use mh-require instead of require.
......
...@@ -51,7 +51,6 @@ ...@@ -51,7 +51,6 @@
(require 'gnus-util) (require 'gnus-util)
(require 'imenu) (require 'imenu)
(mh-require 'which-func nil t)
(defvar mh-searcher nil (defvar mh-searcher nil
"Cached value of chosen search program.") "Cached value of chosen search program.")
...@@ -1410,8 +1409,12 @@ being the list of messages originally from that folder." ...@@ -1410,8 +1409,12 @@ being the list of messages originally from that folder."
(when cur-msg (mh-goto-msg cur-msg t t)) (when cur-msg (mh-goto-msg cur-msg t t))
(set-buffer-modified-p old-buffer-modified-flag))) (set-buffer-modified-p old-buffer-modified-flag)))
(mh-require 'which-func nil t)
;; Shush compiler. ;; 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 ;;;###mh-autoload
(defun mh-index-create-imenu-index () (defun mh-index-create-imenu-index ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment