From d6e2b25feceb2574fa8eef948db0100b33de0fd6 Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Tue, 10 Jan 2006 01:53:05 +0000 Subject: [PATCH] Remove a couple of extra blank lines and unneeded defvars. --- lisp/mh-e/mh-utils.el | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el index 55c5aa33667..bc1b59f661c 100644 --- a/lisp/mh-e/mh-utils.el +++ b/lisp/mh-e/mh-utils.el @@ -463,7 +463,7 @@ operation." (t nil)))) -;; Needed to help shush the byte-compiler. +;; Shush compiler. (if mh-xemacs-flag (eval-and-compile (require 'gnus) @@ -766,7 +766,6 @@ with \"+\"." (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 @@ See `expand-file-name' for description of DEFAULT." (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 @@ still visible.\n") "--" ["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.\\ -- 2.39.2