From 02fc973bc978ccc4570d8f7b00c85346e8cd5df6 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 5 Nov 2013 15:51:06 -0500 Subject: [PATCH] * lisp/mh-e/mh-print.el (mh-ps-print-preprint): Don't use dynamic-var `prefix-arg' as function argument. --- lisp/mh-e/ChangeLog | 5 +++++ lisp/mh-e/mh-print.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 5e94265f67..c3f2aff042 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,8 @@ +2013-11-05 Stefan Monnier + + * mh-print.el (mh-ps-print-preprint): Don't use dynamic-var + `prefix-arg' as function argument. + 2013-06-18 Juri Linkov * 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 f57ccf56d8..f5e5ab7776 100644 --- 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 () -- 2.20.1