[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/printing.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/printing.el [emacs-unicode-2] |
Date: |
Mon, 02 Aug 2004 20:25:18 -0400 |
Index: emacs/lisp/printing.el
diff -c emacs/lisp/printing.el:1.3.6.4 emacs/lisp/printing.el:1.3.6.5
*** emacs/lisp/printing.el:1.3.6.4 Fri Jul 23 04:30:38 2004
--- emacs/lisp/printing.el Tue Aug 3 00:02:59 2004
***************
*** 974,980 ****
(and (string< ps-print-version "6.6.4")
! (error "`printing' requires `ps-print' package version 6.6.4 or later."))
(eval-and-compile
--- 974,980 ----
(and (string< ps-print-version "6.6.4")
! (error "`printing' requires `ps-print' package version 6.6.4 or later"))
(eval-and-compile
***************
*** 4254,4260 ****
(pr-ps-buffer-ps-print
(if (integerp n-up)
(min (max n-up 1) 100)
! (error "n-up must be an integer greater than zero."))
filename)))
--- 4254,4260 ----
(pr-ps-buffer-ps-print
(if (integerp n-up)
(min (max n-up 1) 100)
! (error "n-up must be an integer greater than zero"))
filename)))
***************
*** 5031,5037 ****
(let ((item (cdr (assq value pr-ps-utility-alist))))
(or item
(error
! "Invalid PostScript utility name `%s' for variable `pr-ps-utility'."
value))
(setq pr-ps-utility value)
(pr-eval-alist (nthcdr 9 item)))
--- 5031,5037 ----
(let ((item (cdr (assq value pr-ps-utility-alist))))
(or item
(error
! "Invalid PostScript utility name `%s' for variable `pr-ps-utility'"
value))
(setq pr-ps-utility value)
(pr-eval-alist (nthcdr 9 item)))
***************
*** 5042,5048 ****
(let ((ps (cdr (assq value pr-ps-printer-alist))))
(or ps
(error
! "Invalid PostScript printer name `%s' for variable `pr-ps-name'."
value))
(setq pr-ps-name value
pr-ps-command (pr-dosify-file-name (nth 0 ps))
--- 5042,5048 ----
(let ((ps (cdr (assq value pr-ps-printer-alist))))
(or ps
(error
! "Invalid PostScript printer name `%s' for variable `pr-ps-name'"
value))
(setq pr-ps-name value
pr-ps-command (pr-dosify-file-name (nth 0 ps))
***************
*** 5068,5074 ****
(defun pr-txt-set-printer (value)
(let ((txt (cdr (assq value pr-txt-printer-alist))))
(or txt
! (error "Invalid text printer name `%s' for variable `pr-txt-name'."
value))
(setq pr-txt-name value
pr-txt-command (pr-dosify-file-name (nth 0 txt))
--- 5068,5074 ----
(defun pr-txt-set-printer (value)
(let ((txt (cdr (assq value pr-txt-printer-alist))))
(or txt
! (error "Invalid text printer name `%s' for variable `pr-txt-name'"
value))
(setq pr-txt-name value
pr-txt-command (pr-dosify-file-name (nth 0 txt))
***************
*** 5121,5127 ****
(setq global nil)))
(and inherits
(if (memq inherits old)
! (error "Circular inheritance for `%S'." inherits)
(setq local-list
(pr-eval-setting-alist inherits global
(cons inherits old)))))
--- 5121,5127 ----
(setq global nil)))
(and inherits
(if (memq inherits old)
! (error "Circular inheritance for `%S'" inherits)
(setq local-list
(pr-eval-setting-alist inherits global
(cons inherits old)))))
***************
*** 5349,5355 ****
(defun pr-switches (switches mess)
(or (listp switches)
! (error "%S should have a list of strings." mess))
(ps-flatten-list ; dynamic evaluation
(mapcar 'ps-eval-switch switches)))
--- 5349,5355 ----
(defun pr-switches (switches mess)
(or (listp switches)
! (error "%S should have a list of strings" mess))
(ps-flatten-list ; dynamic evaluation
(mapcar 'ps-eval-switch switches)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/printing.el [emacs-unicode-2],
Miles Bader <=