emacs-commit
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-commit] emacs/lisp/mh-e mh-utils.el


From: Bill Wohler
Subject: [Emacs-commit] emacs/lisp/mh-e mh-utils.el
Date: Tue, 10 Jan 2006 01:53:05 +0000

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Bill Wohler <address@hidden>    06/01/10 01:53:05

Modified files:
        lisp/mh-e      : mh-utils.el 

Log message:
        Remove a couple of extra blank lines and unneeded defvars.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-utils.el.diff?tr1=1.33&tr2=1.34&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/mh-utils.el
diff -u emacs/lisp/mh-e/mh-utils.el:1.33 emacs/lisp/mh-e/mh-utils.el:1.34
--- emacs/lisp/mh-e/mh-utils.el:1.33    Mon Jan  9 20:15:48 2006
+++ emacs/lisp/mh-e/mh-utils.el Tue Jan 10 01:53:05 2006
@@ -463,7 +463,7 @@
      (t
       nil))))
 
-;; Needed to help shush the byte-compiler.
+;; Shush compiler.
 (if mh-xemacs-flag
     (eval-and-compile
       (require 'gnus)
@@ -766,7 +766,6 @@
     (and (> (length name) 0)
          (eq (aref name 0) ?+))))
 
-
 (defun mh-expand-file-name (filename &optional default)
   "Expand FILENAME like `expand-file-name', but also handle MH folder names.
 Any filename that starts with '+' is treated as a folder name.
@@ -775,7 +774,6 @@
       (expand-file-name (substring filename 1) mh-user-path)
     (expand-file-name filename default)))
 
-
 (defun mh-msg-filename (msg &optional folder)
   "Return the file name of MSG in FOLDER (default current folder)."
   (expand-file-name (int-to-string msg)
@@ -1126,15 +1124,11 @@
     "--"
     ["Quit MH-E"                        mh-quit t]))
 
-
 ;; Ensure new buffers won't get this mode if default-major-mode is nil.
 (put 'mh-show-mode 'mode-class 'special)
 
 ;; Shush compiler.
-(eval-when-compile
-  (defvar font-lock-auto-fontify)
-  (defvar font-lock-defaults)
-  (defvar tool-bar-map))
+(eval-when-compile (defvar font-lock-auto-fontify))
 
 (define-derived-mode mh-show-mode text-mode "MH-Show"
   "Major mode for showing messages in MH-E.\\<mh-show-mode-map>




reply via email to

[Prev in Thread] Current Thread [Next in Thread]