From 9e53076ea9d9f18f9fbdf28d79958691720b446f Mon Sep 17 00:00:00 2001
From: Vinicius Jose Latorre <viniciusjl@ig.com.br>
Date: Fri, 2 Mar 2007 01:43:44 +0000
Subject: Some code fix.

---
 lisp/ps-def.el | 28 ++++++++++++----------------
 1 file changed, 12 insertions(+), 16 deletions(-)

(limited to 'lisp/ps-def.el')

diff --git a/lisp/ps-def.el b/lisp/ps-def.el
index f11d716ea41..d2095352d8f 100644
--- a/lisp/ps-def.el
+++ b/lisp/ps-def.el
@@ -7,7 +7,7 @@
 ;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
 ;;	Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Keywords: wp, print, PostScript
-;; Version: 7.2
+;; Version: 7.2.2
 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
 
 ;; This file is part of GNU Emacs.
@@ -40,14 +40,14 @@
 
 
 (cond
- ((featurep 'xemacs)			; xemacs
+ ((featurep 'xemacs)			; XEmacs
 
 
   ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;; ps-bdf
 
-  (defvar installation-directory nil)
-  (defvar coding-system-for-read nil)
+  (defvar installation-directory)
+  (defvar coding-system-for-read)
 
 
   ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -165,8 +165,7 @@
     (ps-xemacs-color-name (face-background face)))
 
 
-  (defun ps-frame-parameter (param)
-    (frame-property nil param))
+  (defalias 'ps-frame-parameter 'frame-property)
 
 
   ;; Return t if the device (which can be changed during an emacs session)
@@ -207,9 +206,9 @@
 
 
   ;; to avoid XEmacs compilation gripes
-  (defvar coding-system-for-write   nil)
-  (defvar coding-system-for-read    nil)
-  (defvar buffer-file-coding-system nil)
+  (defvar coding-system-for-write)
+  (defvar coding-system-for-read)
+  (defvar buffer-file-coding-system)
 
 
   (and (fboundp 'find-coding-system)
@@ -299,7 +298,7 @@
       (ps-plot-with-face from to face)))
 
   )
- (t					; emacs
+ (t					; Emacs
   ;; Do nothing
   ))					; end cond featurep
 
@@ -311,17 +310,15 @@
 
 
 (cond
- ((featurep 'xemacs)			; xemacs
+ ((featurep 'xemacs)			; XEmacs
   ;; Do nothing
   )
- (t					; emacs
+ (t					; Emacs
 
 
   ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;; ps-print
 
-  (defvar mark-active nil)
-
 
   (defun ps-mark-active-p ()
     mark-active)
@@ -335,8 +332,7 @@
     (face-background face nil t))
 
 
-  (defun ps-frame-parameter (param)
-    (frame-parameter nil param))
+  (defalias 'ps-frame-parameter 'frame-parameter)
 
 
   ;; Return t if the device (which can be changed during an emacs session) can
-- 
cgit v1.2.1