Mercurial > emacs
changeset 68105:5772368fe15e
* mh-funcs.el:
* mh-inc.el:
* mh-init.el:
* mh-mime.el:
* mh-seq.el:
* mh-utils.el: Use ";; Shush compiler." comment consistently per
Mark's suggestion.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Mon, 09 Jan 2006 20:15:48 +0000 |
| parents | b10ff4551ab2 |
| children | da4512a603de |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-funcs.el lisp/mh-e/mh-inc.el lisp/mh-e/mh-init.el lisp/mh-e/mh-mime.el lisp/mh-e/mh-seq.el lisp/mh-e/mh-utils.el |
| diffstat | 7 files changed, 22 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/ChangeLog Mon Jan 09 19:28:21 2006 +0000 +++ b/lisp/mh-e/ChangeLog Mon Jan 09 20:15:48 2006 +0000 @@ -1,3 +1,13 @@ +2006-01-09 Bill Wohler <wohler@newt.com> + + * mh-funcs.el: + * mh-inc.el: + * mh-init.el: + * mh-mime.el: + * mh-seq.el: + * mh-utils.el: Use ";; Shush compiler." comment consistently per + Mark's suggestion. + 2006-01-08 Bill Wohler <wohler@newt.com> Removed code that was marked as Emacs 20 compatible that was
--- a/lisp/mh-e/mh-funcs.el Mon Jan 09 19:28:21 2006 +0000 +++ b/lisp/mh-e/mh-funcs.el Mon Jan 09 20:15:48 2006 +0000 @@ -149,7 +149,8 @@ (re-search-forward "^rmf: " (point-max) t)) (display-buffer mh-temp-buffer))) -(eval-when-compile (defvar view-exit-action)) ;shush compiler +;; Shush compiler. +(eval-when-compile (defvar view-exit-action)) ;;;###mh-autoload (defun mh-list-folders ()
--- a/lisp/mh-e/mh-inc.el Mon Jan 09 19:28:21 2006 +0000 +++ b/lisp/mh-e/mh-inc.el Mon Jan 09 20:15:48 2006 +0000 @@ -73,7 +73,8 @@ (char-to-string key) "] inc " folder " folder\n")))) -(eval-when-compile (defvar mh-inc-spool-list)) ;shush compiler +;; Shush compiler. +(eval-when-compile (defvar mh-inc-spool-list)) (defun mh-inc-spool-make () "Make all commands and defines keys for contents of `mh-inc-spool-list'."
--- a/lisp/mh-e/mh-init.el Mon Jan 09 19:28:21 2006 +0000 +++ b/lisp/mh-e/mh-init.el Mon Jan 09 20:15:48 2006 +0000 @@ -297,7 +297,8 @@ -(eval-when-compile (defvar image-load-path)) ;shush compiler +;; Shush compiler. +(eval-when-compile (defvar image-load-path)) (defvar mh-image-load-path-called-flag nil)
--- a/lisp/mh-e/mh-mime.el Mon Jan 09 19:28:21 2006 +0000 +++ b/lisp/mh-e/mh-mime.el Mon Jan 09 20:15:48 2006 +0000 @@ -591,7 +591,8 @@ (mml-insert-empty-tag 'part 'type type 'filename file 'disposition dispos 'description description))) -(eval-when-compile (defvar mh-identity-pgg-default-user-id)) ;shush compiler +;; Shush compiler. +(eval-when-compile (defvar mh-identity-pgg-default-user-id)) (defun mh-secure-message (method mode &optional identity) "Add tag to encrypt or sign message.
--- a/lisp/mh-e/mh-seq.el Mon Jan 09 19:28:21 2006 +0000 +++ b/lisp/mh-e/mh-seq.el Mon Jan 09 20:15:48 2006 +0000 @@ -169,7 +169,8 @@ (when (and (eq sequence mh-unseen-seq) (mh-speed-flists-active-p)) (apply #'mh-speed-flists t folders-changed)))) -(eval-when-compile (defvar view-exit-action)) ;shush compiler +;; Shush compiler. +(eval-when-compile (defvar view-exit-action)) ;;;###mh-autoload (defun mh-list-sequences ()
--- a/lisp/mh-e/mh-utils.el Mon Jan 09 19:28:21 2006 +0000 +++ b/lisp/mh-e/mh-utils.el Mon Jan 09 20:15:48 2006 +0000 @@ -2606,7 +2606,8 @@ (mh-exec-cmd-quiet nil "mhparam" "-components" component) (mh-get-profile-field (concat component ":")))) -(eval-when-compile (defvar mark-active)) ;shush compiler +;; Shush compiler. +(eval-when-compile (defvar mark-active)) (defun mh-exchange-point-and-mark-preserving-active-mark () "Put the mark where point is now, and point where the mark is now.