Mercurial > emacs
changeset 70027:0e0916499a15
* mh-funcs.el (view-exit-action): No need to wrap defvar with
eval-when-compile when shushing compiler.
* mh-mime.el (mh-identity-pgg-default-user-id): Ditto.
* mh-seq.el (view-exit-action): Ditto.
* mh-show.el (font-lock-auto-fontify): Ditto.
* mh-utils.el (mh-speed-flists-cache): Ditto
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Fri, 14 Apr 2006 21:28:52 +0000 |
| parents | a0de53f6c617 |
| children | d81780942bb8 |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-funcs.el lisp/mh-e/mh-mime.el lisp/mh-e/mh-seq.el lisp/mh-e/mh-show.el lisp/mh-e/mh-utils.el |
| diffstat | 6 files changed, 16 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/ChangeLog Fri Apr 14 18:49:18 2006 +0000 +++ b/lisp/mh-e/ChangeLog Fri Apr 14 21:28:52 2006 +0000 @@ -1,5 +1,16 @@ 2006-04-14 Bill Wohler <wohler@newt.com> + * mh-funcs.el (view-exit-action): No need to wrap defvar with + eval-when-compile when shushing compiler. + + * mh-mime.el (mh-identity-pgg-default-user-id): Ditto. + + * mh-seq.el (view-exit-action): Ditto. + + * mh-show.el (font-lock-auto-fontify): Ditto. + + * mh-utils.el (mh-speed-flists-cache): Ditto + * mh-compat.el (mh-font-lock-add-keywords): New alias for font-lock-add-keywords. Returns nil on XEmacs.
--- a/lisp/mh-e/mh-funcs.el Fri Apr 14 18:49:18 2006 +0000 +++ b/lisp/mh-e/mh-funcs.el Fri Apr 14 21:28:52 2006 +0000 @@ -138,7 +138,7 @@ (display-buffer mh-temp-buffer))) ;; Shush compiler. -(eval-when-compile (defvar view-exit-action)) +(defvar view-exit-action) ;;;###mh-autoload (defun mh-list-folders ()
--- a/lisp/mh-e/mh-mime.el Fri Apr 14 18:49:18 2006 +0000 +++ b/lisp/mh-e/mh-mime.el Fri Apr 14 21:28:52 2006 +0000 @@ -1537,7 +1537,7 @@ (after-find-file nil))) ;; Shush compiler. -(eval-when-compile (defvar mh-identity-pgg-default-user-id)) +(defvar mh-identity-pgg-default-user-id) ;;;###mh-autoload (defun mh-mml-secure-message-encrypt (method)
--- a/lisp/mh-e/mh-seq.el Fri Apr 14 18:49:18 2006 +0000 +++ b/lisp/mh-e/mh-seq.el Fri Apr 14 21:28:52 2006 +0000 @@ -134,7 +134,7 @@ (apply #'mh-speed-flists t folders-changed)))) ;; Shush compiler. -(eval-when-compile (defvar view-exit-action)) +(defvar view-exit-action) ;;;###mh-autoload (defun mh-list-sequences ()
--- a/lisp/mh-e/mh-show.el Fri Apr 14 18:49:18 2006 +0000 +++ b/lisp/mh-e/mh-show.el Fri Apr 14 21:28:52 2006 +0000 @@ -815,7 +815,7 @@ (put 'mh-show-mode 'mode-class 'special) ;; Shush compiler. -(eval-when-compile (defvar font-lock-auto-fontify)) +(defvar font-lock-auto-fontify) ;;;###mh-autoload (define-derived-mode mh-show-mode text-mode "MH-Show"
--- a/lisp/mh-e/mh-utils.el Fri Apr 14 18:49:18 2006 +0000 +++ b/lisp/mh-e/mh-utils.el Fri Apr 14 21:28:52 2006 +0000 @@ -657,7 +657,7 @@ (defvar mh-folder-hist nil) ;; Shush compiler. -(eval-when-compile (defvar mh-speed-flists-cache)) +(defvar mh-speed-flists-cache) (defvar mh-allow-root-folder-flag nil "Non-nil means \"+\" is an acceptable folder name.