diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mh-e/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 5e94265f67d..c3f2aff042e 100644 --- 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 f57ccf56d85..f5e5ab77761 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 () |