Mercurial > emacs
changeset 68111:3f3efc6d4bd7
Remove a couple of extra blank lines and unneeded defvars.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Tue, 10 Jan 2006 01:53:05 +0000 |
parents | 484c210112fb |
children | 604ac165c0ad |
files | lisp/mh-e/mh-utils.el |
diffstat | 1 files changed, 2 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/mh-utils.el Mon Jan 09 23:14:26 2006 +0000 +++ b/lisp/mh-e/mh-utils.el Tue Jan 10 01:53:05 2006 +0000 @@ -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>