diff options
| author | Glenn Morris | 2008-04-23 02:57:57 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-04-23 02:57:57 +0000 |
| commit | 037f214b3a3d2690e266a9e10eab7fa3db0ecc1f (patch) | |
| tree | 956c76a4eb415f2007706aba323bd725e8c2b235 | |
| parent | e28acf63e281575aa83f4fb290838342fa306ee6 (diff) | |
| download | emacs-037f214b3a3d2690e266a9e10eab7fa3db0ecc1f.tar.gz emacs-037f214b3a3d2690e266a9e10eab7fa3db0ecc1f.zip | |
(ps-color-device): Drop support for XEmacs < 19.12.
| -rw-r--r-- | lisp/ps-def.el | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/lisp/ps-def.el b/lisp/ps-def.el index 72a8bbf3e23..9a972c67877 100644 --- a/lisp/ps-def.el +++ b/lisp/ps-def.el | |||
| @@ -178,17 +178,8 @@ | |||
| 178 | 178 | ||
| 179 | ;; Return t if the device (which can be changed during an emacs session) | 179 | ;; Return t if the device (which can be changed during an emacs session) |
| 180 | ;; can handle colors. | 180 | ;; can handle colors. |
| 181 | ;; XEmacs change: Need to check for emacs-major-version too. | 181 | (defun ps-color-device () |
| 182 | (if (or (> emacs-major-version 19) | 182 | (eq (device-class) 'color)) |
| 183 | (and (= emacs-major-version 19) | ||
| 184 | (>= emacs-minor-version 12))) | ||
| 185 | ;; xemacs >= 19.12 | ||
| 186 | (defun ps-color-device () | ||
| 187 | (eq (device-class) 'color)) | ||
| 188 | ;; xemacs < 19.12 | ||
| 189 | (setq ps-print-color-p nil) | ||
| 190 | (defalias 'ps-color-device 'ignore)) | ||
| 191 | |||
| 192 | 183 | ||
| 193 | (defun ps-mapper (extent list) | 184 | (defun ps-mapper (extent list) |
| 194 | (nconc list | 185 | (nconc list |