*** empty log message ***

[bpt/emacs.git] / lisp / printing.el

diff --git a/lisp/printing.el b/lisp/printing.el
index ae6e194..08303e0 100644 (file)
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -5,7 +5,7 @@
 
 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
-;; Time-stamp: <2004/07/12 21:10:35 vinicius>
+;; Time-stamp: <2004/07/20 21:44:43 vinicius>
 ;; Keywords: wp, print, PostScript
 ;; Version: 6.8
 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
@@ -40,37 +40,22 @@ Please send all bug fixes and enhancements to
 ;; Introduction
 ;; ------------
 ;;
-;; This package provides an user interface to some printing utilities that
-;; includes previewing/printing a PostScript file, printing a text file and
-;; previewing/printing some major modes (like mh-folder-mode,
-;; rmail-summary-mode, gnus-summary-mode, etc).  It also includes a
-;; PostScript/text printer database.
+;; With `printing' you can preview or print a PostScript file.  You can also
+;; print a text file using PostScript, and preview or print buffers that use
+;; certain special modes like mh-folder-mode, rmail-summary-mode,
+;; gnus-summary-mode, etc.  This package also includes a PostScript/text
+;; printer database.
 ;;
-;; Indeed, there are two user interfaces:
+;; There are two user interfaces:
 ;;
 ;;    * Menu interface:
-;;      When `printing' is loaded, the menubar is modified to use `printing'
-;;      menu instead of the print options in menubar.
+;;      The `printing' menu replaces the usual print options in the menu bar.
 ;;      This is the default user interface.
 ;;
 ;;    * Buffer interface:
-;;      It is an option of `printing' menu, but it can be binded into another
-;;      key, so user can activate the buffer interface directly without using
-;;      a menu.  See `pr-interface' command.
-;;
-;; `printing' was inspired on:
-;;
-;;    print-nt.el            Frederic Corne <frederic.corne@erli.fr>
-;;      Special printing functions for Windows NT
-;;
-;;    mh-e-init.el           Tom Vogels <tov@ece.cmu.edu>
-;;      PS-print for mail messages
-;;
-;;    win32-ps-print.el              Matthew O. Persico <mpersico@erols.com>
-;;      PostScript printing with ghostscript
-;;
-;;    ps-print-interface.el   Volker Franz <volker.franz@tuebingen.mpg.de>
-;;      Graphical front end for ps-print and previewing
+;;      You can use a buffer interface instead of menus.  It looks like a
+;;      customization buffer.  Basically, it has the same options found in the
+;;      menu and some extra options, all this on a buffer.
 ;;
 ;; `printing' is prepared to run on GNU, Unix and NT systems.
 ;; On GNU or Unix system, `printing' depends on gs and gv utilities.
@@ -86,6 +71,20 @@ Please send all bug fixes and enhancements to
 ;; `http://www.cpqd.com.br/~vinicius/emacs/ps-print.tar.gz'.
 ;; Please, see README file for ps-print installation instructions.
 ;;
+;; `printing' was inspired on:
+;;
+;;    print-nt.el            Frederic Corne <frederic.corne@erli.fr>
+;;      Special printing functions for Windows NT
+;;
+;;    mh-e-init.el           Tom Vogels <tov@ece.cmu.edu>
+;;      PS-print for mail messages
+;;
+;;    win32-ps-print.el              Matthew O. Persico <mpersico@erols.com>
+;;      PostScript printing with ghostscript
+;;
+;;    ps-print-interface.el   Volker Franz <volker.franz@tuebingen.mpg.de>
+;;      Graphical front end for ps-print and previewing
+;;
 ;;
 ;; Log Messages
 ;; ------------
@@ -975,7 +974,7 @@ Please send all bug fixes and enhancements to
 
 
 (and (string< ps-print-version "6.6.4")
-     (error "`printing' requires `ps-print' package version 6.6.4 or later."))
+     (error "`printing' requires `ps-print' package version 6.6.4 or later"))
 
 
 (eval-and-compile
@@ -4255,7 +4254,7 @@ are both set to t."
     (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."))
+       (error "n-up must be an integer greater than zero"))
      filename)))
 
 
@@ -5032,7 +5031,7 @@ non-nil."
   (let ((item (cdr (assq value pr-ps-utility-alist))))
     (or item
        (error
-        "Invalid PostScript utility name `%s' for variable `pr-ps-utility'."
+        "Invalid PostScript utility name `%s' for variable `pr-ps-utility'"
         value))
     (setq pr-ps-utility value)
     (pr-eval-alist (nthcdr 9 item)))
@@ -5043,7 +5042,7 @@ non-nil."
   (let ((ps (cdr (assq value pr-ps-printer-alist))))
     (or ps
        (error
-        "Invalid PostScript printer name `%s' for variable `pr-ps-name'."
+        "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))
@@ -5069,7 +5068,7 @@ non-nil."
 (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'."
+       (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))
@@ -5122,7 +5121,7 @@ non-nil."
                  (setq global nil)))
           (and inherits
                (if (memq inherits old)
-                   (error "Circular inheritance for `%S'." inherits)
+                   (error "Circular inheritance for `%S'" inherits)
                  (setq local-list
                        (pr-eval-setting-alist inherits global
                                               (cons inherits old)))))
@@ -5350,7 +5349,7 @@ non-nil."
 
 (defun pr-switches (switches mess)
   (or (listp switches)
-      (error "%S should have a list of strings." mess))
+      (error "%S should have a list of strings" mess))
   (ps-flatten-list                     ; dynamic evaluation
    (mapcar 'ps-eval-switch switches)))