/[emacs]/emacs/lisp/printing.el
ViewVC logotype

Diff of /emacs/lisp/printing.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3.6.4 by miles, Fri Jul 23 04:30:38 2004 UTC revision 1.3.6.5 by miles, Tue Aug 3 00:02:59 2004 UTC
# Line 974  Please send all bug fixes and enhancemen Line 974  Please send all bug fixes and enhancemen
974    
975    
976  (and (string< ps-print-version "6.6.4")  (and (string< ps-print-version "6.6.4")
977       (error "`printing' requires `ps-print' package version 6.6.4 or later."))       (error "`printing' requires `ps-print' package version 6.6.4 or later"))
978    
979    
980  (eval-and-compile  (eval-and-compile
# Line 4254  are both set to t." Line 4254  are both set to t."
4254      (pr-ps-buffer-ps-print      (pr-ps-buffer-ps-print
4255       (if (integerp n-up)       (if (integerp n-up)
4256           (min (max n-up 1) 100)           (min (max n-up 1) 100)
4257         (error "n-up must be an integer greater than zero."))         (error "n-up must be an integer greater than zero"))
4258       filename)))       filename)))
4259    
4260    
# Line 5031  non-nil." Line 5031  non-nil."
5031    (let ((item (cdr (assq value pr-ps-utility-alist))))    (let ((item (cdr (assq value pr-ps-utility-alist))))
5032      (or item      (or item
5033          (error          (error
5034           "Invalid PostScript utility name `%s' for variable `pr-ps-utility'."           "Invalid PostScript utility name `%s' for variable `pr-ps-utility'"
5035           value))           value))
5036      (setq pr-ps-utility value)      (setq pr-ps-utility value)
5037      (pr-eval-alist (nthcdr 9 item)))      (pr-eval-alist (nthcdr 9 item)))
# Line 5042  non-nil." Line 5042  non-nil."
5042    (let ((ps (cdr (assq value pr-ps-printer-alist))))    (let ((ps (cdr (assq value pr-ps-printer-alist))))
5043      (or ps      (or ps
5044          (error          (error
5045           "Invalid PostScript printer name `%s' for variable `pr-ps-name'."           "Invalid PostScript printer name `%s' for variable `pr-ps-name'"
5046           value))           value))
5047      (setq pr-ps-name           value      (setq pr-ps-name           value
5048            pr-ps-command        (pr-dosify-file-name (nth 0 ps))            pr-ps-command        (pr-dosify-file-name (nth 0 ps))
# Line 5068  non-nil." Line 5068  non-nil."
5068  (defun pr-txt-set-printer (value)  (defun pr-txt-set-printer (value)
5069    (let ((txt (cdr (assq value pr-txt-printer-alist))))    (let ((txt (cdr (assq value pr-txt-printer-alist))))
5070      (or txt      (or txt
5071          (error "Invalid text printer name `%s' for variable `pr-txt-name'."          (error "Invalid text printer name `%s' for variable `pr-txt-name'"
5072                 value))                 value))
5073      (setq pr-txt-name     value      (setq pr-txt-name     value
5074            pr-txt-command  (pr-dosify-file-name (nth 0 txt))            pr-txt-command  (pr-dosify-file-name (nth 0 txt))
# Line 5121  non-nil." Line 5121  non-nil."
5121                    (setq global nil)))                    (setq global nil)))
5122             (and inherits             (and inherits
5123                  (if (memq inherits old)                  (if (memq inherits old)
5124                      (error "Circular inheritance for `%S'." inherits)                      (error "Circular inheritance for `%S'" inherits)
5125                    (setq local-list                    (setq local-list
5126                          (pr-eval-setting-alist inherits global                          (pr-eval-setting-alist inherits global
5127                                                 (cons inherits old)))))                                                 (cons inherits old)))))
# Line 5349  non-nil." Line 5349  non-nil."
5349    
5350  (defun pr-switches (switches mess)  (defun pr-switches (switches mess)
5351    (or (listp switches)    (or (listp switches)
5352        (error "%S should have a list of strings." mess))        (error "%S should have a list of strings" mess))
5353    (ps-flatten-list                      ; dynamic evaluation    (ps-flatten-list                      ; dynamic evaluation
5354     (mapcar 'ps-eval-switch switches)))     (mapcar 'ps-eval-switch switches)))
5355    

Legend:
Removed from v.1.3.6.4  
changed lines
  Added in v.1.3.6.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26