[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-utils.el mh-seq.el mh-mime.e...
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-utils.el mh-seq.el mh-mime.e... |
Date: |
Mon, 09 Jan 2006 20:15:48 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch:
Changes by: Bill Wohler <address@hidden> 06/01/09 20:15:48
Modified files:
lisp/mh-e : mh-utils.el mh-seq.el mh-mime.el mh-init.el
mh-inc.el mh-funcs.el ChangeLog
Log message:
* 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.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-utils.el.diff?tr1=1.32&tr2=1.33&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-seq.el.diff?tr1=1.22&tr2=1.23&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-mime.el.diff?tr1=1.38&tr2=1.39&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-init.el.diff?tr1=1.23&tr2=1.24&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-inc.el.diff?tr1=1.11&tr2=1.12&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-funcs.el.diff?tr1=1.23&tr2=1.24&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.99&tr2=1.100&r1=text&r2=text
Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.99 emacs/lisp/mh-e/ChangeLog:1.100
--- emacs/lisp/mh-e/ChangeLog:1.99 Mon Jan 9 06:28:49 2006
+++ emacs/lisp/mh-e/ChangeLog Mon Jan 9 20:15:48 2006
@@ -1,3 +1,13 @@
+2006-01-09 Bill Wohler <address@hidden>
+
+ * 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 <address@hidden>
Removed code that was marked as Emacs 20 compatible that was
Index: emacs/lisp/mh-e/mh-funcs.el
diff -u emacs/lisp/mh-e/mh-funcs.el:1.23 emacs/lisp/mh-e/mh-funcs.el:1.24
--- emacs/lisp/mh-e/mh-funcs.el:1.23 Mon Jan 9 19:26:44 2006
+++ emacs/lisp/mh-e/mh-funcs.el Mon Jan 9 20:15:48 2006
@@ -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 ()
Index: emacs/lisp/mh-e/mh-inc.el
diff -u emacs/lisp/mh-e/mh-inc.el:1.11 emacs/lisp/mh-e/mh-inc.el:1.12
--- emacs/lisp/mh-e/mh-inc.el:1.11 Mon Jan 9 06:28:49 2006
+++ emacs/lisp/mh-e/mh-inc.el Mon Jan 9 20:15:48 2006
@@ -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'."
Index: emacs/lisp/mh-e/mh-init.el
diff -u emacs/lisp/mh-e/mh-init.el:1.23 emacs/lisp/mh-e/mh-init.el:1.24
--- emacs/lisp/mh-e/mh-init.el:1.23 Mon Jan 9 06:28:49 2006
+++ emacs/lisp/mh-e/mh-init.el Mon Jan 9 20:15:48 2006
@@ -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)
Index: emacs/lisp/mh-e/mh-mime.el
diff -u emacs/lisp/mh-e/mh-mime.el:1.38 emacs/lisp/mh-e/mh-mime.el:1.39
--- emacs/lisp/mh-e/mh-mime.el:1.38 Mon Jan 9 19:28:21 2006
+++ emacs/lisp/mh-e/mh-mime.el Mon Jan 9 20:15:48 2006
@@ -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.
Index: emacs/lisp/mh-e/mh-seq.el
diff -u emacs/lisp/mh-e/mh-seq.el:1.22 emacs/lisp/mh-e/mh-seq.el:1.23
--- emacs/lisp/mh-e/mh-seq.el:1.22 Mon Jan 9 06:28:49 2006
+++ emacs/lisp/mh-e/mh-seq.el Mon Jan 9 20:15:48 2006
@@ -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 ()
Index: emacs/lisp/mh-e/mh-utils.el
diff -u emacs/lisp/mh-e/mh-utils.el:1.32 emacs/lisp/mh-e/mh-utils.el:1.33
--- emacs/lisp/mh-e/mh-utils.el:1.32 Mon Jan 9 06:28:49 2006
+++ emacs/lisp/mh-e/mh-utils.el Mon Jan 9 20:15:48 2006
@@ -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.