Mercurial > emacs
changeset 32655:0e090a7a7011
(ps-print-emacs-type): Move into the
eval-and-compile.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 19 Oct 2000 10:54:47 +0000 |
| parents | ff2336f92cd0 |
| children | 6d318f1ef31e |
| files | lisp/ps-print.el |
| diffstat | 1 files changed, 11 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ps-print.el Thu Oct 19 10:46:51 2000 +0000 +++ b/lisp/ps-print.el Thu Oct 19 10:54:47 2000 +0000 @@ -2896,20 +2896,19 @@ sym))) -(defvar ps-print-emacs-type - (cond ((string-match "XEmacs" emacs-version) 'xemacs) - ((string-match "Lucid" emacs-version) 'lucid) - ((string-match "Epoch" emacs-version) 'epoch) - (t 'emacs))) - -(if (memq ps-print-emacs-type '(lucid xemacs)) - (if (< emacs-minor-version 12) - (setq ps-print-color-p nil)) - (require 'faces)) ; face-font, face-underline-p, +(eval-and-compile + (defvar ps-print-emacs-type + (cond ((string-match "XEmacs" emacs-version) 'xemacs) + ((string-match "Lucid" emacs-version) 'lucid) + ((string-match "Epoch" emacs-version) 'epoch) + (t 'emacs))) + + (if (memq ps-print-emacs-type '(lucid xemacs)) + (if (< emacs-minor-version 12) + (setq ps-print-color-p nil)) + (require 'faces)) ; face-font, face-underline-p, ; x-font-regexp - -(eval-and-compile ;; Return t if the device (which can be changed during an emacs session) ;; can handle colors. ;; This is function is not yet implemented for GNU emacs.