diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-11-05 15:51:06 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-11-05 15:51:06 -0500 |
commit | 02fc973bc978ccc4570d8f7b00c85346e8cd5df6 (patch) | |
tree | 2d9156ce5dc55d35e0869737d3852ebd9d6d5b97 /lisp | |
parent | 2e670b957698eefb9f90a907968b497efe8c540b (diff) | |
download | emacs-02fc973bc978ccc4570d8f7b00c85346e8cd5df6.tar.gz |
* lisp/mh-e/mh-print.el (mh-ps-print-preprint): Don't use dynamic-var
`prefix-arg' as function argument.
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 () |