Commit 02fc973b authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

`prefix-arg' as function argument.
parent 2e670b95
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
......
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment