mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Change error function arguments to follow Emacs

Browse source 
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.
This commit is contained in:
Gerd Moellmann 2001-08-15 08:05:21 +00:00
parent 86354bc09a
commit 27dc47aa81
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/ps-print.el
View file

@ -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)))