diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-10-07 16:05:43 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-10-07 16:22:51 +0200 |
| commit | 9d14e410dac11990cf0e95a1a77e83827323530d (patch) | |
| tree | 16a949b58ddc934edabbc359c4e2856a86ce7c15 /lisp/mh-e/mh-utils.el | |
| parent | 148b136651413d8eca0f805c786fb04b9c5878b8 (diff) | |
| download | emacs-9d14e410dac11990cf0e95a1a77e83827323530d.tar.gz | |
Delete some XEmacs compat code from mh-e/*.el
* lisp/mh-e/mh-acros.el (mh-mark-active-p):
* lisp/mh-e/mh-comp.el (mh-insert-x-mailer):
* lisp/mh-e/mh-compat.el (mh-define-obsolete-variable-alias)
(mh-make-obsolete-variable):
* lisp/mh-e/mh-folder.el (mh-folder-mode-map)
(mh-remove-xemacs-horizontal-scrollbar, mh-folder-mode):
* lisp/mh-e/mh-gnus.el (mh-gnus-local-map-property):
* lisp/mh-e/mh-show.el (mh-show-mode):
* lisp/mh-e/mh-utils.el (mh-colors-available-p):
* lisp/mh-e/mh-xface.el (mh-show-xface-function): Delete some
XEmacs compat code.
Diffstat (limited to 'lisp/mh-e/mh-utils.el')
| -rw-r--r-- | lisp/mh-e/mh-utils.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el index 137e45ba7a5..6d9a3afe283 100644 --- a/lisp/mh-e/mh-utils.el +++ b/lisp/mh-e/mh-utils.el @@ -61,9 +61,9 @@ used in lieu of `search' in the CL package." ;;;###mh-autoload (defun mh-colors-available-p () "Check if colors are available in the Emacs being used." - (or (featurep 'xemacs) - (let ((color-cells (mh-display-color-cells))) - (and (numberp color-cells) (>= color-cells 8))))) + ;; FIXME: Can this be replaced with `display-color-p'? + (let ((color-cells (mh-display-color-cells))) + (and (numberp color-cells) (>= color-cells 8)))) ;;;###mh-autoload (defun mh-colors-in-use-p () |