Mercurial > emacs
changeset 103999:d41cacce5657
(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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 21 Jul 2009 04:47:34 +0000 |
| parents | a909fa4b5bdd |
| children | 286d07f70804 |
| files | lisp/ChangeLog lisp/printing.el |
| diffstat | 2 files changed, 14 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jul 21 04:42:55 2009 +0000 +++ b/lisp/ChangeLog Tue Jul 21 04:47:34 2009 +0000 @@ -1,5 +1,12 @@ 2009-07-21 Glenn Morris <rgm@gnu.org> + * 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.
--- a/lisp/printing.el Tue Jul 21 04:42:55 2009 +0000 +++ b/lisp/printing.el Tue Jul 21 04:47:34 2009 +0000 @@ -4956,11 +4956,10 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; mh-e (adapted from mh-e-init.el -- Tom Vogels <tov@ece.cmu.edu>) - -(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 @@ (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)))