diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-08-15 08:05:21 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-08-15 08:05:21 +0000 |
| commit | 27dc47aa81316b783f9102d584555e8c0c9a4983 (patch) | |
| tree | c95666e6f86192ec75b4163bb670cb9f08745902 /lisp/ps-print.el | |
| parent | 86354bc09a1a29a6bd7a70e1fbd364f4b1afff5f (diff) | |
| download | emacs-27dc47aa81316b783f9102d584555e8c0c9a4983.tar.gz | |
Change error function arguments to follow Emacs
message convention. Doc fix.
(ps-print-version): New version number (6.5.4).
(coding-system-for-write): Change declaration position to avoid
XEmacs compilation gripes.
(coding-system-for-read, buffer-file-coding-system): Declarations
to avoid XEmacs compilation gripes.
Diffstat (limited to 'lisp/ps-print.el')
| -rw-r--r-- | lisp/ps-print.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 48f401924c1..072a8ee3083 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -10,12 +10,12 @@ ;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) ;; Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; Keywords: wp, print, PostScript -;; Time-stamp: <2001/06/19 11:01:09 vinicius> -;; Version: 6.5.3 +;; Time-stamp: <2001/08/07 13:22:04 vinicius> +;; Version: 6.5.4 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ -(defconst ps-print-version "6.5.3" - "ps-print.el, v 6.5.3 <2001/06/19 vinicius> +(defconst ps-print-version "6.5.4" + "ps-print.el, v 6.5.4 <2001/08/07 vinicius> Vinicius's last change version -- this file may have been edited as part of Emacs without changes to the version number. When reporting bugs, please also @@ -3587,9 +3587,6 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'." (cond ((eq ps-print-emacs-type 'emacs) ; emacs - ;; to avoid XEmacs compilation gripes - (defvar coding-system-for-write nil) - (defun ps-color-values (x-color) (cond ((fboundp 'color-values) @@ -3614,6 +3611,11 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'." ; lucid (t ; epoch + ;; to avoid XEmacs compilation gripes + (defvar coding-system-for-write nil) + (defvar coding-system-for-read nil) + (defvar buffer-file-coding-system nil) + (and (fboundp 'find-coding-system) (or (ps-x-find-coding-system 'raw-text-unix) (ps-x-copy-coding-system 'no-conversion-unix 'raw-text-unix))) |