# HG changeset patch # User Bill Wohler # Date 1136857985 0 # Node ID 3f3efc6d4bd7e697f9349e17ec98613eea553ae9 # Parent 484c210112fb1aed6a74142253554105f7539ab7 Remove a couple of extra blank lines and unneeded defvars. diff -r 484c210112fb -r 3f3efc6d4bd7 lisp/mh-e/mh-utils.el --- 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.\\