* lisp/mh-e/mh-print.el (mh-ps-print-preprint): Don't use dynamic-var

`prefix-arg' as function argument.

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 5e94265f67d30e1dd299119b270d2e3d66f59cc7..c3f2aff042edca7091bab05395211f91271a4f24 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-05  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * mh-print.el (mh-ps-print-preprint): Don't use dynamic-var
+       `prefix-arg' as function argument.
+
 2013-06-18  Juri Linkov  <juri@jurta.org>
 
        * mh-alias.el (mh-alias-local-users): Add non-nil arg REPLACE to

diff --git a/lisp/mh-e/mh-print.el b/lisp/mh-e/mh-print.el
index f57ccf56d85d59d680dcee91ffa33daff4e6d3af..f5e5ab7776142e114facb75cb96a1c6643a48733 100644 (file)
--- a/lisp/mh-e/mh-print.el
+++ b/lisp/mh-e/mh-print.el
@@ -139,11 +139,11 @@ commands \\[mh-ps-print-toggle-color] and
   (interactive (list (mh-interactive-range "Print") (mh-ps-print-preprint 1)))
   (mh-ps-print-range range file))
 
-(defun mh-ps-print-preprint (prefix-arg)
+(defun mh-ps-print-preprint (arg)
   "Provide a better default file name for `ps-print-preprint'.
-Pass along the PREFIX-ARG to it."
+Pass along the prefix ARG to it."
   (let ((buffer-file-name (format "mh-%s" (substring (buffer-name) 1))))
-    (ps-print-preprint prefix-arg)))
+    (ps-print-preprint arg)))
 
 ;;;###mh-autoload
 (defun mh-ps-print-toggle-faces ()