emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/printing.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/printing.el [lexbind]
Date: Sat, 04 Sep 2004 05:48:20 -0400

Index: emacs/lisp/printing.el
diff -c emacs/lisp/printing.el:1.3.2.10 emacs/lisp/printing.el:1.3.2.11
*** emacs/lisp/printing.el:1.3.2.10     Fri Jul 23 04:42:20 2004
--- emacs/lisp/printing.el      Sat Sep  4 09:19:26 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)))
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]