mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

If ps-lpr-switches is not a list, force it to be one.

Browse source
This commit is contained in:
Vinicius Jose Latorre 2007-11-09 14:52:32 +00:00
parent 2354b80b63
commit e2d092da59
3 changed files with 172 additions and 216 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/ps-print.el
View file

@ -10,11 +10,11 @@
;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, print, PostScript
;; Version: 7.3
;; Version: 7.3.1
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
(defconst ps-print-version "7.3"
"ps-print.el, v 7.3 <2007/10/26 vinicius>
(defconst ps-print-version "7.3.1"
"ps-print.el, v 7.3.1 <2007/11/09 vinicius>
Vinicius's last change version -- this file may have been edited as part of
Emacs without changes to the version number. When reporting bugs, please also
@ -6510,7 +6510,9 @@ If FACE is not a valid face name, use default face."
(and (boundp 'printer-name)
(symbol-value 'printer-name))))
(ps-lpr-switches
(append ps-lpr-switches
(append (if (listp ps-lpr-switches)
ps-lpr-switches
(list ps-lpr-switches))
(and (stringp ps-printer-name)
(string< "" ps-printer-name)
(list (concat