From fdd8417e493bb7804c61d08914f4c3ddad347c6e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 21 Jul 2009 04:47:34 +0000 Subject: [PATCH] (pr-mh-get-msg-num, pr-mh-show) (pr-mh-start-of-uncleaned-message): Remove aliases only used to silence compiler. Instead... (mh-get-msg-num, mh-show, mh-start-of-uncleaned-message): ...Declare. (mh-show-buffer): Only define for compiler. (pr-mh-current-message): Update for above function name changes. --- lisp/ChangeLog | 7 +++++++ lisp/printing.el | 15 +++++++-------- 2 files changed, 14 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 85d4a348209..b8e2192d0e0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,12 @@ 2009-07-21 Glenn Morris + * printing.el (pr-mh-get-msg-num, pr-mh-show) + (pr-mh-start-of-uncleaned-message): Remove aliases only used to + silence compiler. Instead... + (mh-get-msg-num, mh-show, mh-start-of-uncleaned-message): ...Declare. + (mh-show-buffer): Only define for compiler. + (pr-mh-current-message): Update for above function name changes. + * files.el (abort-if-file-too-large): Explicitly pass `filename' as an argument. (find-file-noselect, insert-file-1): Update for above change. diff --git a/lisp/printing.el b/lisp/printing.el index 53167aa4ef3..5d101b40b2a 100644 --- a/lisp/printing.el +++ b/lisp/printing.el @@ -4956,11 +4956,10 @@ Or choose the menu option Printing/Show Settings/lpr." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; mh-e (adapted from mh-e-init.el -- Tom Vogels ) - -(defalias 'pr-mh-get-msg-num 'mh-get-msg-num) -(defalias 'pr-mh-show 'mh-show) -(defalias 'pr-mh-start-of-uncleaned-message 'mh-start-of-uncleaned-message) -(defvar mh-show-buffer nil) +(declare-function mh-get-msg-num "mh-utils" (error-if-no-message)) +(declare-function mh-show "mh-show" (&optional message redisplay-flag)) +(declare-function mh-start-of-uncleaned-message "mh-show" ()) +(defvar mh-show-buffer) (defun pr-article-date () @@ -4976,11 +4975,11 @@ Return only the dayname, if present, weekday, month, and year." (defun pr-mh-current-message () "Go to mh-inbox current message." - (let ((msg (or (pr-mh-get-msg-num nil) 0))) - (pr-mh-show) + (let ((msg (or (mh-get-msg-num nil) 0))) + (mh-show) (set-buffer mh-show-buffer) (goto-char (point-min)) - (pr-mh-start-of-uncleaned-message) + (mh-start-of-uncleaned-message) (message "Printing message %d" msg))) -- 2.39.2