Mercurial > emacs
comparison lisp/mh-e/mh-e.el @ 69186:4eb7009c53f4
* mh-compat.el (mh-display-color-cells): Return 2 if
device-color-cells returns nil (closes SF #1436924).
* mh-e.el (mh-compiling-flag): Delete. No longer needed by
mh-display-color-cells.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Mon, 27 Feb 2006 22:25:07 +0000 |
| parents | f5bc6bf5c294 |
| children | 6c74df3ce672 |
comparison
equal
deleted
inserted
replaced
| 69185:ee54b3a792ff | 69186:4eb7009c53f4 |
|---|---|
| 99 | 99 |
| 100 (mh-require-cl) | 100 (mh-require-cl) |
| 101 | 101 |
| 102 (eval-and-compile | 102 (eval-and-compile |
| 103 (defvar mh-xemacs-flag (featurep 'xemacs) | 103 (defvar mh-xemacs-flag (featurep 'xemacs) |
| 104 "Non-nil means the current Emacs is XEmacs.") | 104 "Non-nil means the current Emacs is XEmacs.")) |
| 105 (defvar mh-compiling-flag nil | |
| 106 "Non-nil means we're compiling.")) | |
| 107 | |
| 108 (eval-when (compile) | |
| 109 (setq mh-compiling-flag t)) | |
| 110 | 105 |
| 111 (mh-do-in-xemacs | 106 (mh-do-in-xemacs |
| 112 (require 'mh-xemacs)) | 107 (require 'mh-xemacs)) |
| 113 | 108 |
| 114 (require 'mh-buffers) | 109 (require 'mh-buffers) |