[Emacs-diffs] Changes to emacs/lisp/ps-print.el,v

[Vinicius Jose Latorre]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Vinicius Jose Latorre <viniciusjl>      07/11/11 14:18:17

Index: ps-print.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ps-print.el,v
retrieving revision 1.201
retrieving revision 1.202
diff -u -b -r1.201 -r1.202
--- ps-print.el 9 Nov 2007 15:34:03 -0000       1.201
+++ ps-print.el 11 Nov 2007 14:18:17 -0000      1.202
@@ -6002,6 +6002,8 @@
   ;; initialize page dimensions
   (ps-get-page-dimensions)
   ;; final check
+  (unless (listp ps-lpr-switches)
+    (error "`ps-lpr-switches' value should be a list."))
   (and ps-color-p
        (equal ps-default-background ps-default-foreground)
        (error
@@ -6843,9 +6845,7 @@
                                    (and (boundp 'printer-name)
                                         (symbol-value 'printer-name))))
               (ps-lpr-switches
-               (append (if (listp ps-lpr-switches)
-                           ps-lpr-switches
-                         (list ps-lpr-switches))
+               (append ps-lpr-switches
                        (and (stringp ps-printer-name)
                             (string< "" ps-printer-name)
                             (list (concat