[Emacs-diffs] emacs/lisp ChangeLog printing.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/07/21 04:47:38

Modified files:
        lisp           : ChangeLog printing.el 

Log message:
        (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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15838&r2=1.15839
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/printing.el?cvsroot=emacs&r1=1.61&r2=1.62

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15838
retrieving revision 1.15839
diff -u -b -r1.15838 -r1.15839
--- ChangeLog   21 Jul 2009 04:42:55 -0000      1.15838
+++ ChangeLog   21 Jul 2009 04:47:34 -0000      1.15839
@@ -1,5 +1,12 @@
 2009-07-21  Glenn Morris  <address@hidden>
 
+       * 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.

Index: printing.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/printing.el,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -b -r1.61 -r1.62
--- printing.el 5 Jan 2009 03:19:40 -0000       1.61
+++ printing.el 21 Jul 2009 04:47:37 -0000      1.62
@@ -4956,11 +4956,10 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; mh-e (adapted from mh-e-init.el -- Tom Vogels <address@hidden>)
 
-
-(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)))