Mercurial > emacs
diff lisp/printing.el @ 54146:2a5eca2838d1
A lot of doc fix.
author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
---|---|
date | Thu, 26 Feb 2004 04:03:40 +0000 |
parents | 695cf19ef79e |
children | c312c950b64d |
line wrap: on
line diff
--- a/lisp/printing.el Thu Feb 26 00:44:29 2004 +0000 +++ b/lisp/printing.el Thu Feb 26 04:03:40 2004 +0000 @@ -1,17 +1,17 @@ ;;; printing.el --- printing utilities -;; Copyright (C) 2000, 2001, 2002, 2003 +;; Copyright (C) 2000, 2001, 2002, 2003, 2004 ;; Free Software Foundation, Inc. ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> +;; Time-stamp: <2004/02/26 00:43:07 vinicius> ;; Keywords: wp, print, PostScript -;; Time-stamp: <2002/09/11 16:59:00 vinicius> -;; Version: 6.7.1 +;; Version: 6.7.2 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ -(defconst pr-version "6.7.1" - "printing.el, v 6.7.1 <2002/09/11 vinicius> +(defconst pr-version "6.7.2" + "printing.el, v 6.7.2 <2004/02/26 vinicius> Please send all bug fixes and enhancements to Vinicius Jose Latorre <vinicius@cpqd.com.br> @@ -255,9 +255,9 @@ ;; PREFIX: ;; `pr-interface' buffer interface for printing package. ;; `pr-help' help for printing package. -;; `pr-ps-name' select interactively a PostScript printer. -;; `pr-txt-name' select interactively a text printer. -;; `pr-ps-utility' select interactively a PostScript utility. +;; `pr-ps-name' interactively select a PostScript printer. +;; `pr-txt-name' interactively select a text printer. +;; `pr-ps-utility' interactively select a PostScript utility. ;; `pr-show-*-setup' show current settings. ;; `pr-ps-*' deal with PostScript code generation. ;; `pr-txt-*' deal with text generation. @@ -381,9 +381,11 @@ ;; ;; `pr-ps-temp-file' Specify PostScript temporary file name. ;; -;; `pr-gv-command' Specify path and name of gsview program. -;; -;; `pr-gs-command' Specify path and name of ghostscript program. +;; `pr-gv-command' Specify path and name of the gsview/gv +;; utility. +;; +;; `pr-gs-command' Specify path and name of the ghostscript +;; utility. ;; ;; `pr-gs-switches' Specify ghostscript switches. ;; @@ -408,8 +410,8 @@ ;; ;; `pr-auto-region' Non-nil means region is automagically detected. ;; -;; `pr-auto-mode' Non-nil means major-mode printing is prefered -;; over normal printing. +;; `pr-auto-mode' Non-nil means major-mode specific printing is +;; prefered over normal printing. ;; ;; `pr-mode-alist' Specify an alist for a major-mode and printing ;; function. @@ -526,8 +528,8 @@ ;; 15 | Print All Pages >|--\ | |Mode | +------------+ ;; +-----------------------------+ | | +---------+ |[ ]Landscape| Id ;; IV 16 |[ ]Spool Buffer | | | +-C-------+ |[ ]Duplex | Ie -;; 17 |[ ]Print with-faces | | \--|( )name A| |[ ]Tumble | If -;; 18 |[ ]Print Using Ghostscript | | |( )name B| +------------+ +;; 17 |[ ]Print with faces | | \--|( )name A| |[ ]Tumble | If +;; 18 |[ ]Print via Ghostscript | | |( )name B| +------------+ ;; +-----------------------------+ | |... | ;; V 19 |[ ]Auto Region | | |(*)name | ;; 20 |[ ]Auto Mode | | |... | @@ -690,7 +692,7 @@ ;; declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands ;; behave like `*-mode*' commands. ;; -;; 21. If you want that Printing menu stays poped up while you are setting +;; 21. If you want that Printing menu stays open while you are setting ;; toggle options, turn on this option. The variables ;; `pr-menu-char-height' and `pr-menu-char-width' are used to guess the ;; menu position, so don't forget to adjust these variables if menu @@ -1157,9 +1159,9 @@ 'prt_06a 'my_printer -COMMAND Name of program for printing a text file. On MS-DOS and - MS-Windows systems, if the value is an empty string then Emacs - will write directly to the printer port named by NAME (see text +COMMAND Name of the program for printing a text file. On MS-DOS and + MS-Windows systems, if the value is an empty string, then Emacs + will write directly to the printer port given by NAME (see text below), that is, the NAME should be something like \"PRN\" or \"LPT1:\". If NAME is something like \"\\\\\\\\host\\\\share-name\" then @@ -1287,11 +1289,11 @@ 'prt_06a 'my_printer -COMMAND Name of program for printing a PostScript file. On MS-DOS and - MS-Windows systems, if the value is an empty string then Emacs - will write directly to the printer port named by NAME (see text - below), that is, the NAME should be something like \"PRN\" or - \"LPT1:\". +COMMAND Name of the program for printing a PostScript file. On MS-DOS + and MS-Windows systems, if the value is an empty string then + Emacs will write directly to the printer port given by NAME + (see text below), that is, the NAME should be something like + \"PRN\" or \"LPT1:\". If NAME is something like \"\\\\\\\\host\\\\share-name\" then COMMAND shouldn't be an empty string. The programs `print' and `nprint' (the standard print programs @@ -1472,10 +1474,10 @@ (if ps-windows-system "gsview32.exe" "gv") - "*Specify path and name of gsview program. + "*Specify path and name of the gsview/gv utility. See also `pr-path-alist'." - :type '(string :tag "Ghostview Program") + :type '(string :tag "Ghostview Utility") :group 'printing) @@ -1483,10 +1485,10 @@ (if ps-windows-system "gswin32.exe" "gs") - "*Specify path and name of ghostscript program. + "*Specify path and name of the ghostscript utility. See also `pr-path-alist'." - :type '(string :tag "Ghostscript Program") + :type '(string :tag "Ghostscript Utility") :group 'printing) @@ -1524,7 +1526,7 @@ (if ps-windows-system "mswinpr2" "uniprint") - "*Specify ghostscript device switch value (-sDEVICE=). + "*Specify the ghostscript device switch value (-sDEVICE=). A note on the gs switches: @@ -1609,7 +1611,7 @@ (defcustom pr-auto-mode t - "*Non-nil means major-mode printing is prefered over normal printing. + "*Non-nil means major-mode specific printing is prefered over normal printing. That is, if current major-mode is declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands will behave like `*-mode*' commands; otherwise, @@ -1876,9 +1878,9 @@ . for Windows system: \"c:/psutils/psnup -q\" -MUST-SWITCHES List of sexp's to pass as options for PostScript utility +MUST-SWITCHES List of sexp's to pass as options to the PostScript utility program. These options are necessary to process the utility - program and must be place before any other switches. + program and must be placed before any other switches. Example: . for psnup: '(\"-q\") @@ -1921,7 +1923,7 @@ . for mpage \">\" ; mpage ... input > output -SWITCHES List of sexp's to pass as extra options for PostScript utility +SWITCHES List of sexp's to pass as extra options to the PostScript utility program. Example: . for psnup @@ -2202,8 +2204,8 @@ | Print All Pages >| +------------------------------+ `postscript-process' |[ ] Spool Buffer | - |[ ] Print with-faces | - |[ ] Print Using Ghostscript | + |[ ] Print with faces | + |[ ] Print via Ghostscript | +------------------------------+ `printing' |[ ] Auto Region | |[ ] Auto Mode | @@ -2299,7 +2301,7 @@ (defvar pr-txt-switches nil - "List of sexp's to pass as extra options for text printer program. + "List of sexp's to pass as extra options to the text printer program. See `pr-txt-printer-alist'.") @@ -2314,7 +2316,7 @@ (defvar pr-ps-switches nil - "List of sexp's to pass as extra options for PostScript printer program. + "List of sexp's to pass as extra options to the PostScript printer program. See `pr-ps-printer-alist'.") @@ -2556,11 +2558,11 @@ :style toggle :selected pr-spool-p :included (pr-visible-p 'postscript-process) :help "Toggle PostScript spooling"] - ["Print with-faces" pr-toggle-faces + ["Print with faces" pr-toggle-faces :style toggle :selected pr-faces-p :included (pr-visible-p 'postscript-process) :help "Toggle PostScript printing with faces"] - ["Print Using Ghostscript" pr-toggle-ghostscript + ["Print via Ghostscript" pr-toggle-ghostscript :style toggle :selected pr-print-using-ghostscript :included (pr-visible-p 'postscript-process) :help "Toggle PostScript generation using ghostscript"] @@ -2746,10 +2748,10 @@ ["Spool Buffer" pr-toggle-spool :style toggle :selected pr-spool-p :included (pr-visible-p 'postscript-process)] - ["Print with-faces" pr-toggle-faces + ["Print with faces" pr-toggle-faces :style toggle :selected pr-faces-p :included (pr-visible-p 'postscript-process)] - ["Print Using Ghostscript" pr-toggle-ghostscript + ["Print via Ghostscript" pr-toggle-ghostscript :style toggle :selected pr-print-using-ghostscript :included (pr-visible-p 'postscript-process)] "--" @@ -2870,8 +2872,8 @@ 15 | Print All Pages >|--\\ | |Mode | +------------+ +-----------------------------+ | | +---------+ |[ ]Landscape| Id IV 16 |[ ]Spool Buffer | | | +-C-------+ |[ ]Duplex | Ie - 17 |[ ]Print with-faces | | \\--|( )name A| |[ ]Tumble | If - 18 |[ ]Print Using Ghostscript | | |( )name B| +------------+ + 17 |[ ]Print with faces | | \\--|( )name A| |[ ]Tumble | If + 18 |[ ]Print via Ghostscript | | |( )name B| +------------+ +-----------------------------+ | |... | V 19 |[ ]Auto Region | | |(*)name | 20 |[ ]Auto Mode | | |... | @@ -2945,9 +2947,9 @@ save temporarily the PostScript code generated in a buffer and print it later. The option `Despool...' despools the PostScript spooling buffer directly on a printer. If you type C-u before choosing this option, - the PostScript code generated is saved in a file instead of sending to - printer. To spool the PostScript code generated you need to turn on - the option 16. This option is enabled if spooling is on (option 16). + the PostScript code generated is saved in a file instead of sending it to + the printer. To spool the PostScript code generated you need to turn on + option 16. This option is enabled if spooling is on (option 16). See also the NOTE 1, NOTE 2 and NOTE 3 on option 1. 3. You can select a new PostScript printer to send PostScript code @@ -3032,7 +3034,7 @@ declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands behave like `*-mode*' commands. - 21. If you want that Printing menu stays poped while you are setting + 21. If you want that Printing menu stays open while you are setting toggle options, turn on this option. The variables `pr-menu-char-height' and `pr-menu-char-width' are used to guess the menu position, so don't forget to adjust these variables if menu @@ -3237,7 +3239,7 @@ behave like `*-mode*' commands. * Menu Lock: - If you want that Printing menu stays poped while you are setting + If you want that Printing menu stays open while you are setting toggle options, turn on this option. The variables `pr-menu-char-height' and `pr-menu-char-width' are used to guess the menu position, so don't forget to adjust these variables if menu @@ -3247,13 +3249,13 @@ To spool the PostScript code generated. You can despool later by setting Despool option on PostScript printer section. - * Print with-faces: + * Print with faces: If you use colors in your buffers and want to see these colors on your PostScript code generated, turn on this option. If you have a black/white PostScript printer, these colors are displayed in gray scale by PostScript printer interpreter. - * Print Using Ghostscript: + * Print via Ghostscript: If you don't have a PostScript printer to send PostScript files, turn on this option. When this option is on, the ghostscript is used to print PostScript files. In GNU or Unix system, if ghostscript is set @@ -3294,9 +3296,9 @@ (defun pr-interface (&optional buffer) "Activate the printing interface buffer. -If BUFFER is nil, it uses the current buffer for printing. - -For more informations, type \\[pr-interface-help]." +If BUFFER is nil, the current buffer is used for printing. + +For more information, type \\[pr-interface-help]." (interactive) (save-excursion (set-buffer (or buffer (current-buffer))) @@ -3799,7 +3801,7 @@ (and (stringp filename) (file-exists-p filename) ;; printing (let ((file (pr-expand-file-name filename))) - (if (string-equal pr-ps-command "") + (if (string= pr-ps-command "") (let ((ps-spool-buffer (get-buffer-create ps-spool-buffer-name))) (save-excursion (set-buffer ps-spool-buffer) @@ -3901,7 +3903,7 @@ (defun pr-toggle-faces () "Toggle printing with faces." (interactive) - (pr-toggle 'pr-faces-p "Printing with-faces" + (pr-toggle 'pr-faces-p "Printing with faces" 'postscript-process 1 12 'toggle)) @@ -4008,28 +4010,28 @@ ;;;###autoload (defun pr-customize (&rest ignore) - "Customization of `printing' group." + "Customization of the `printing' group." (interactive) (customize-group 'printing)) ;;;###autoload (defun lpr-customize (&rest ignore) - "Customization of `lpr' group." + "Customization of the `lpr' group." (interactive) (customize-group 'lpr)) ;;;###autoload (defun pr-help (&rest ignore) - "Help for printing package." + "Help for the printing package." (interactive) (pr-show-setup pr-help-message "*Printing Help*")) ;;;###autoload (defun pr-ps-name () - "Select interactively a PostScript printer." + "Interactively select a PostScript printer." (interactive) (pr-menu-set-ps-title (pr-complete-alist "PostScript printer" pr-ps-printer-alist pr-ps-name))) @@ -4037,7 +4039,7 @@ ;;;###autoload (defun pr-txt-name () - "Select interactively a text printer." + "Interactively select a text printer." (interactive) (pr-menu-set-txt-title (pr-complete-alist "Text printer" pr-txt-printer-alist pr-txt-name))) @@ -4045,7 +4047,7 @@ ;;;###autoload (defun pr-ps-utility () - "Select interactively a PostScript utility." + "Interactively select a PostScript utility." (interactive) (pr-menu-set-utility-title (pr-complete-alist "Postscript utility" pr-ps-utility-alist pr-ps-utility))) @@ -4527,6 +4529,10 @@ (+ index 2)) +(defvar pr-menu-position nil) +(defvar pr-menu-state nil) + + (eval-and-compile (cond ((eq ps-print-emacs-type 'xemacs) @@ -4560,60 +4566,55 @@ (- (cdr pos) ; Y (* (pr-menu-index entry index) pr-menu-char-height))) (selected-frame)))) ; frame - ))) - - -(defvar pr-menu-position nil) -(defvar pr-menu-state nil) - - -(cond - ((eq ps-print-emacs-type 'emacs) - ;; GNU Emacs - (defun pr-menu-lock (entry index horizontal state path) - (when (and (not (interactive-p)) pr-menu-lock) - (or (and pr-menu-position (eq state pr-menu-state)) - (setq pr-menu-position (pr-menu-position entry index horizontal) - pr-menu-state state)) - (let* ((menu (pr-menu-lookup path)) - (result (x-popup-menu pr-menu-position menu))) - (and result - (let ((command (lookup-key menu (vconcat result)))) - (if (fboundp command) - (funcall command) - (eval command))))) - (setq pr-menu-position nil))) - - ;; GNU Emacs - (defun pr-menu-lookup (path) - (let ((ipath pr-menu-bar)) - (lookup-key global-map - (if path - (vconcat ipath - (mapcar 'pr-get-symbol - (if (listp path) - path - (list path)))) - ipath))))) - - - ((eq ps-print-emacs-type 'xemacs) - ;; XEmacs - (defun pr-menu-lock (entry index horizontal state path) - (when (and (not (interactive-p)) pr-menu-lock) - (or (and pr-menu-position (eq state pr-menu-state)) - (setq pr-menu-position (pr-menu-position entry index horizontal) - pr-menu-state state)) - (let* ((menu (pr-menu-lookup path)) - (result (pr-x-get-popup-menu-response menu pr-menu-position))) - (and (pr-x-misc-user-event-p result) - (funcall (pr-x-event-function result) - (pr-x-event-object result)))) - (setq pr-menu-position nil))) - - ;; XEmacs - (defun pr-menu-lookup (path) - (car (pr-x-find-menu-item current-menubar (cons "Printing" path)))))) + )) + + (cond + ((eq ps-print-emacs-type 'emacs) + ;; GNU Emacs + (defun pr-menu-lookup (path) + (let ((ipath pr-menu-bar)) + (lookup-key global-map + (if path + (vconcat ipath + (mapcar 'pr-get-symbol + (if (listp path) + path + (list path)))) + ipath)))) + + ;; GNU Emacs + (defun pr-menu-lock (entry index horizontal state path) + (when (and (not (interactive-p)) pr-menu-lock) + (or (and pr-menu-position (eq state pr-menu-state)) + (setq pr-menu-position (pr-menu-position entry index horizontal) + pr-menu-state state)) + (let* ((menu (pr-menu-lookup path)) + (result (x-popup-menu pr-menu-position menu))) + (and result + (let ((command (lookup-key menu (vconcat result)))) + (if (fboundp command) + (funcall command) + (eval command))))) + (setq pr-menu-position nil)))) + + + ((eq ps-print-emacs-type 'xemacs) + ;; XEmacs + (defun pr-menu-lookup (path) + (car (pr-x-find-menu-item current-menubar (cons "Printing" path)))) + + ;; XEmacs + (defun pr-menu-lock (entry index horizontal state path) + (when (and (not (interactive-p)) pr-menu-lock) + (or (and pr-menu-position (eq state pr-menu-state)) + (setq pr-menu-position (pr-menu-position entry index horizontal) + pr-menu-state state)) + (let* ((menu (pr-menu-lookup path)) + (result (pr-x-get-popup-menu-response menu pr-menu-position))) + (and (pr-x-misc-user-event-p result) + (funcall (pr-x-event-function result) + (pr-x-event-object result)))) + (setq pr-menu-position nil)))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -4642,19 +4643,19 @@ (defvar pr-ps-printer-menu-modified t - "Non-nil means `pr-ps-printer-alist' was modified and need to update menu.") + "Non-nil means `pr-ps-printer-alist' was modified and we need to update menu.") (defvar pr-txt-printer-menu-modified t - "Non-nil means `pr-txt-printer-alist' was modified and need to update menu.") + "Non-nil means `pr-txt-printer-alist' was modified and we need to update menu.") (defvar pr-ps-utility-menu-modified t - "Non-nil means `pr-ps-utility-alist' was modified and need to update menu.") + "Non-nil means `pr-ps-utility-alist' was modified and we need to update menu.") (defconst pr-even-or-odd-alist - '((nil . "Print All Pages") - (even-page . "Print Even Pages") - (odd-page . "Print Odd Pages") + '((nil . "Print All Pages") + (even-page . "Print Even Pages") + (odd-page . "Print Odd Pages") (even-sheet . "Print Even Sheets") - (odd-sheet . "Print Odd Sheets"))) + (odd-sheet . "Print Odd Sheets"))) (defun pr-menu-create (name alist var-sym fun entry index) @@ -4881,12 +4882,12 @@ newname) (set var-sym newname))) - +;; GNU Emacs (defun pr-menu-set-item-name (item name) (and item (setcar (nthcdr 2 item) name))) ; ITEM-NAME - +;; GNU Emacs (defun pr-menu-get-item (name-list) ;; NAME-LIST is a string or a list of strings. (let ((ipath pr-menu-bar) @@ -5471,6 +5472,8 @@ (defun pr-command (command) "Return absolute file name specification for COMMAND. +If COMMAND is an empty string, return it. + If COMMAND is already an absolute file name specification, return it. Else it uses `pr-path-alist' to find COMMAND, if find it then return it; otherwise, gives an error. @@ -5480,14 +5483,17 @@ If Emacs is running on Windows 95/98/NT/2000, tries to find COMMAND, COMMAND.exe, COMMAND.bat and COMMAND.com in this order." - (pr-dosify-path - (or (pr-find-command command) - (pr-path-command (cond (pr-cygwin-system 'cygwin) - (ps-windows-system 'windows) - (t 'unix)) - (file-name-nondirectory command) - nil) - (error "Command not found: %s" (file-name-nondirectory command))))) + (if (string= command "") + command + (pr-dosify-path + (or (pr-find-command command) + (pr-path-command (cond (pr-cygwin-system 'cygwin) + (ps-windows-system 'windows) + (t 'unix)) + (file-name-nondirectory command) + nil) + (error "Command not found: %s" + (file-name-nondirectory command)))))) (defun pr-path-command (symbol command sym-list) @@ -5715,7 +5721,7 @@ (if (pr-interface-directory widget) (pr-widget-field-action widget event) (ding) - (message "It should be a readable directory"))) + (message "Please specify a readable directory"))) pr-i-directory) ;; 1b. Directory: File Regexp (widget-create 'regexp @@ -5739,7 +5745,7 @@ (if (pr-interface-infile widget) (pr-widget-field-action widget event) (ding) - (message "It should be a readable PostScript file"))) + (message "Please specify a readable PostScript file"))) pr-i-ps-file) ;; 1c. PostScript File: PostScript Utility (pr-insert-menu "PostScript Utility" 'pr-ps-utility @@ -5766,7 +5772,7 @@ (if pr-spool-p (setq pr-i-despool (not pr-i-despool)) (ding) - (message "It despool only when it's spooling") + (message "Can despool only when spooling is actually selected") (setq pr-i-despool nil)) (widget-value-set widget pr-i-despool) (widget-setup)) ; MUST be called after widget-value-set @@ -5792,7 +5798,7 @@ (y-or-n-p "File exists; overwrite? ")))) (pr-widget-field-action widget event) (ding) - (message "It should be a writable PostScript file"))) + (message "Please specify a writable PostScript file"))) pr-i-out-file) ;; 2. PostScript Printer: N-Up (widget-create @@ -5809,7 +5815,7 @@ (message " ") (setq pr-i-n-up value)) (ding) - (message "It should be an integer between 1 and 100")))) + (message "Please specify an integer between 1 and 100")))) pr-i-n-up)) @@ -5857,23 +5863,23 @@ (pr-update-checkbox 'pr-i-despool))) " Spool Buffer") - ;; 4. Settings: Duplex Print with-faces + ;; 4. Settings: Duplex Print with faces (pr-insert-checkbox "\n " 'ps-spool-duplex #'(lambda (&rest ignore) (setq ps-spool-duplex (not ps-spool-duplex) pr-file-duplex ps-spool-duplex)) " Duplex ") - (pr-insert-toggle 'pr-faces-p " Print with-faces") - - ;; 4. Settings: Tumble Print Using Ghostscript + (pr-insert-toggle 'pr-faces-p " Print with faces") + + ;; 4. Settings: Tumble Print via Ghostscript (pr-insert-checkbox "\n " 'ps-spool-tumble #'(lambda (&rest ignore) (setq ps-spool-tumble (not ps-spool-tumble) pr-file-tumble ps-spool-tumble)) " Tumble ") - (pr-insert-toggle 'pr-print-using-ghostscript " Print Using Ghostscript\n ") + (pr-insert-toggle 'pr-print-using-ghostscript " Print via Ghostscript\n ") ;; 4. Settings: Upside-Down Page Parity (pr-insert-toggle 'ps-print-upside-down " Upside-Down ") @@ -5962,7 +5968,7 @@ (pr-txt-buffer))) ))) ((eq pr-i-process 'file) - (error "It should be a text file")) + (error "Please specify a text file")) (t (error "Internal error: `pr-i-process' = %S" pr-i-process)) ) @@ -5987,7 +5993,7 @@ (pr-printify-region) (pr-printify-buffer)))) ((eq pr-i-process 'file) - (error "It can't printify a PostScript file")) + (error "Cannot printify a PostScript file")) (t (error "Internal error: `pr-i-process' = %S" pr-i-process)) ) @@ -6034,7 +6040,7 @@ ((eq pr-i-process 'file) (cond ((or (file-directory-p pr-i-ps-file) (not (file-readable-p pr-i-ps-file))) - (error "It should be a readable PostScript file")) + (error "Please specify a readable PostScript file")) (pr-i-ps-as-is (pr-interface-save (funcall ps-file pr-i-ps-file))) @@ -6070,7 +6076,7 @@ (error "Internal error: `pr-i-ps-send' = %S" pr-i-ps-send)) ((or (file-directory-p pr-i-out-file) (not (file-writable-p pr-i-out-file))) - (error "It should be a writable PostScript file")) + (error "Please specify a writable PostScript file")) ((or (not (file-exists-p pr-i-out-file)) pr-i-answer-yes (setq pr-i-answer-yes @@ -6084,12 +6090,12 @@ (defun pr-i-directory () (or (and (file-directory-p pr-i-directory) (file-readable-p pr-i-directory)) - (error "It should be a readable directory"))) + (error "Please specify be a readable directory"))) (defun pr-interface-directory (widget &rest ignore) (and pr-buffer-verbose - (message "Type M-TAB or ESC TAB for file completion")) + (message "You can use M-TAB or ESC TAB for file completion")) (let ((dir (widget-value widget))) (and (file-directory-p dir) (file-readable-p dir) @@ -6098,7 +6104,7 @@ (defun pr-interface-infile (widget &rest ignore) (and pr-buffer-verbose - (message "Type M-TAB or ESC TAB for file completion")) + (message "You can use M-TAB or ESC TAB for file completion")) (let ((file (widget-value widget))) (and (not (file-directory-p file)) (file-readable-p file) @@ -6108,7 +6114,7 @@ (defun pr-interface-outfile (widget &rest ignore) (setq pr-i-answer-yes nil) (and pr-buffer-verbose - (message "Type M-TAB or ESC TAB for file completion")) + (message "You can use M-TAB or ESC TAB for file completion")) (let ((file (widget-value widget))) (and (not (file-directory-p file)) (file-writable-p file)