comparison lisp/ps-print.el @ 86282:6fd01916efe1

ps-lpr-switches docstring fix.

86281:415c55996da6

;; Keywords: wp, print, PostScript
;; Version: 6.8.1
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre

(defconst ps-print-version "6.8.1"
  "ps-print.el, v 6.8.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
report the version of Emacs, if any, that ps-print was distributed with.

  :type 'string
  :version "20"
  :group 'ps-print-printer)

(defcustom ps-lpr-switches lpr-switches
  "*A list of extra switches to pass to `ps-lpr-command'."
  :type '(repeat :tag "PostScript lpr Switches"
		 (choice :menu-tag "PostScript lpr Switch"
			 :tag "PostScript lpr Switch"
			 string symbol (repeat sexp)))
  :version "20"

	  (apply (or ps-print-region-function 'call-process-region)
		 (point-min) (point-max) ps-lpr-command nil
		 (and (fboundp 'start-process) 0)
		 nil
		 (ps-flatten-list	; dynamic evaluation
		  (mapcar 'ps-eval-switch ps-lpr-switches)))))
      (and ps-razzle-dazzle (message "Printing...done")))
    (kill-buffer ps-spool-buffer)))

;; Dynamic evaluation
(defun ps-eval-switch (arg)
  (cond ((stringp arg) arg)
	((functionp arg) (apply arg nil))

86282:6fd01916efe1

;; Keywords: wp, print, PostScript
;; Version: 6.8.1
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre

(defconst ps-print-version "6.8.1"
  "ps-print.el, v 6.8.1 <2007/11/21 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
report the version of Emacs, if any, that ps-print was distributed with.

  :type 'string
  :version "20"
  :group 'ps-print-printer)

(defcustom ps-lpr-switches lpr-switches
  "*List of extra switches to pass to `ps-lpr-command'.

The list element can be:

   string	it should be an option for `ps-lpr-command' (which see).
		For example: \"-o Duplex=DuplexNoTumble\"

   symbol	it can be a function or variable symbol.  If it's a function
		symbol, it should be a function with no argument.  The result
		of the function or the variable value should be a string or a
		list of strings.

   list		the header should be a symbol function and the tail is the
		arguments for this function.  This function should return a
		string or a list of strings.

Any other value is silently ignored.

It is recommended to set `ps-printer-name' (which see) instead of including an
explicit switch on this list.

See `ps-lpr-command'."
  :type '(repeat :tag "PostScript lpr Switches"
		 (choice :menu-tag "PostScript lpr Switch"
			 :tag "PostScript lpr Switch"
			 string symbol (repeat sexp)))
  :version "20"

	  (apply (or ps-print-region-function 'call-process-region)
		 (point-min) (point-max) ps-lpr-command nil
		 (and (fboundp 'start-process) 0)
		 nil
		 (ps-flatten-list	; dynamic evaluation
		  (ps-string-list
		   (mapcar 'ps-eval-switch ps-lpr-switches))))))
      (and ps-razzle-dazzle (message "Printing...done")))
    (kill-buffer ps-spool-buffer)))

(defun ps-string-list (arg)
  (let (lstr)
    (dolist (elm arg)
      (cond ((stringp elm)
	     (setq lstr (cons elm lstr)))
	    ((listp elm)
	     (let ((s (ps-string-list elm)))
	       (when s
		 (setq lstr (cons s lstr)))))
	    (t )))			; ignore any other value
    (nreverse lstr)))

;; Dynamic evaluation
(defun ps-eval-switch (arg)
  (cond ((stringp arg) arg)
	((functionp arg) (apply arg nil))