Mercurial > emacs
diff lisp/ps-print.el @ 91086:5843af4ba940
Error if ps-lpr-switches is not a list.
author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
---|---|
date | Sun, 11 Nov 2007 14:14:30 +0000 |
parents | 880960b70474 |
children | 4545186b2d4c |
line wrap: on
line diff
--- a/lisp/ps-print.el Sun Nov 11 00:56:44 2007 +0000 +++ b/lisp/ps-print.el Sun Nov 11 14:14:30 2007 +0000 @@ -1480,10 +1480,6 @@ ;; Load XEmacs/Emacs definitions (eval-and-compile (require 'ps-def)) -(defun ps-face-background-name (face) - (if (featurep 'xemacs) - (ps-xemacs-color-name (face-background face)) - (face-background face nil t))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; User Variables: @@ -5831,6 +5827,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 @@ -6514,9 +6512,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