[Top][All Lists]
[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>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-commit] emacs/lisp/mh-e mh-utils.el,
Bill Wohler <=