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

(ps-print-emacs-type): Move into the

Browse source 
eval-and-compile.
This commit is contained in:
Gerd Moellmann 2000-10-19 10:55:15 +00:00
parent 3e9cb08f58
commit 877cf6b438
2 changed files with 15 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2000-10-19 Gerd Moellmann <gerd@gnu.org>
* ps-print.el (ps-print-emacs-type): Move into the
eval-and-compile.
2000-10-19 Vinicius Jose Latorre <vinicius@cpqd.com.br>
* ps-print.el: Even/odd pages fix. Fix little bug on XEmacs. Avoid

21
lisp/ps-print.el
View file

@ -2896,20 +2896,19 @@ The table depends on the current ps-print setup."
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)))
(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,
(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.