Minor fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e2dc16ae569d00391641afb34c7a6b84e2ca0cfc..b128720cb0bc0cc55a2f9cb21a85279876f75e68 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-01  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+       * ps-print.el (ps-setup): Print which Emacsen is running ps-print
+       package.
+
 2007-03-01  Stuart Herring  <herring@lanl.gov>  (tiny change)
 
        * files.el (set-auto-mode-0): Use `indirect-function'.

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 751dd0fd9df6cbbb73968aaf2bf5fd98bed44ac3..c91f2bf9c0a444fbf3b41a01d3f1e6d0517e21d9 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -1450,14 +1450,14 @@ Please send all bug fixes and enhancements to
 
 (let ((case-fold-search t))
   (cond ((string-match "XEmacs" emacs-version))
-        ((string-match "Lucid" emacs-version)
-         (error "`ps-print' doesn't support Lucid"))
-        ((string-match "Epoch" emacs-version)
-         (error "`ps-print' doesn't support Epoch"))
-        (t
-         (unless (and (boundp 'emacs-major-version)
-                      (>= emacs-major-version 22))
-           (error "`ps-print' only supports Emacs 22 and higher")))))
+       ((string-match "Lucid" emacs-version)
+        (error "`ps-print' doesn't support Lucid"))
+       ((string-match "Epoch" emacs-version)
+        (error "`ps-print' doesn't support Epoch"))
+       (t
+        (unless (and (boundp 'emacs-major-version)
+                     (>= emacs-major-version 22))
+          (error "`ps-print' only supports Emacs 22 and higher")))))
 
 
 ;; GNU Emacs
@@ -1498,8 +1498,8 @@ Please send all bug fixes and enhancements to
 (defalias 'ps-e-x-color-values      'x-color-values)
 (defalias 'ps-e-color-values        'color-values)
 (defalias 'ps-e-find-composition (if (fboundp 'find-composition)
-                                     'find-composition
-                                   'ignore))
+                                    'find-composition
+                                  'ignore))
 
 
 (defconst ps-windows-system
@@ -1515,11 +1515,12 @@ Please send all bug fixes and enhancements to
 
 (defalias 'ps-frame-parameter
   (if (fboundp 'frame-parameter) 'frame-parameter 'frame-property))
+
 (defalias 'ps-mark-active-p
   (if (fboundp 'region-active-p)
-      'region-active-p                  ; XEmacs
-    (defvar mark-active)                ; To shup up XEmacs's byte compiler.
-    (lambda () mark-active)))                ; Emacs
+      'region-active-p                 ; XEmacs
+    (defvar mark-active)               ; To shup up XEmacs's byte compiler.
+    (lambda () mark-active)))          ; Emacs
 
 (cond ((featurep 'xemacs)              ; XEmacs
        (defun ps-face-foreground-name (face)
@@ -3585,11 +3586,12 @@ The table depends on the current ps-print setup."
     (mapconcat
      #'ps-print-quote
      (list
-      (concat "\n;;; ps-print version " ps-print-version "\n")
+      (concat "\n;;; (" (if (featurep 'xemacs) "XEmacs" "Emacs")
+             ") ps-print version " ps-print-version "\n")
       ";; internal vars"
-      (ps-comment-string "emacs-version      " emacs-version)
-      (ps-comment-string "ps-windows-system  " ps-windows-system)
-      (ps-comment-string "ps-lp-system       " ps-lp-system)
+      (ps-comment-string "emacs-version     " emacs-version)
+      (ps-comment-string "ps-windows-system " ps-windows-system)
+      (ps-comment-string "ps-lp-system      " ps-lp-system)
       nil
       '(25 . ps-print-color-p)
       '(25 . ps-lpr-command)
@@ -3843,18 +3845,18 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'."
 ;; This function is not yet implemented for GNU emacs.
 (defalias 'ps-color-device
   (cond ((and (featurep 'xemacs)
-              ;; XEmacs change: Need to check for emacs-major-version too.
-              (or (> emacs-major-version 19)
-                  (and (= emacs-major-version 19)
-                       (>= emacs-minor-version 12)))) ; XEmacs >= 19.12
-         (lambda ()
-           (eq (ps-x-device-class) 'color)))
-
-        (t                             ; Emacs
-         (lambda ()
-           (if (fboundp 'color-values)
-               (ps-e-color-values "Green")
-             t)))))
+             ;; XEmacs change: Need to check for emacs-major-version too.
+             (or (> emacs-major-version 19)
+                 (and (= emacs-major-version 19)
+                      (>= emacs-minor-version 12)))) ; XEmacs >= 19.12
+        (lambda ()
+          (eq (ps-x-device-class) 'color)))
+
+       (t                              ; Emacs
+        (lambda ()
+          (if (fboundp 'color-values)
+              (ps-e-color-values "Green")
+            t)))))
 
 
 (defun ps-mapper (extent list)