procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
`prefix-arg' as function argument.
This commit is contained in:
Stefan Monnier 2013-11-05 15:51:06 -05:00
parent 2e670b9576
commit 02fc973bc9
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/mh-e/ChangeLog
View file

@ -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

6
lisp/mh-e/mh-print.el
View file

@ -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 ()