From d3241651a889514d1b4b51ab598ab7eaf5100558 Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Thu, 1 Mar 2007 19:53:32 +0000 Subject: Minor fix. --- lisp/ChangeLog | 5 +++++ lisp/ps-print.el | 60 +++++++++++++++++++++++++++++--------------------------- 2 files changed, 36 insertions(+), 29 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e2dc16ae569..b128720cb0b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-03-01 Vinicius Jose Latorre + + * ps-print.el (ps-setup): Print which Emacsen is running ps-print + package. + 2007-03-01 Stuart Herring (tiny change) * files.el (set-auto-mode-0): Use `indirect-function'. diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 751dd0fd9df..c91f2bf9c0a 100644 --- 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) -- cgit v1.2.3