diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-08-24 06:38:36 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-08-24 06:38:36 +0200 |
| commit | 1007800a5994ac49b6bc9cd7528edb2d709d2031 (patch) | |
| tree | 147c9d0b5bd6e9a515de46e8a81fea43a9a99ee7 /lisp/mh-e | |
| parent | 10a31c6a29ec08b76cd079470979e87704af3858 (diff) | |
| download | emacs-1007800a5994ac49b6bc9cd7528edb2d709d2031.tar.gz emacs-1007800a5994ac49b6bc9cd7528edb2d709d2031.tar.bz2 emacs-1007800a5994ac49b6bc9cd7528edb2d709d2031.zip | |
Make mh-colors-available-p obsolete
* lisp/mh-e/mh-utils.el (mh-colors-available-p): Redefine as
obsolete function alias for 'display-color-p'.
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/mh-folder.el | 2 | ||||
| -rw-r--r-- | lisp/mh-e/mh-utils.el | 10 |
2 files changed, 4 insertions, 8 deletions
diff --git a/lisp/mh-e/mh-folder.el b/lisp/mh-e/mh-folder.el index 5b902902378..308660431ac 100644 --- a/lisp/mh-e/mh-folder.el +++ b/lisp/mh-e/mh-folder.el @@ -583,7 +583,7 @@ perform the operation on all messages in that region. (make-local-variable 'desktop-save-buffer) (setq desktop-save-buffer t) (setq-local - mh-colors-available-flag (mh-colors-available-p) + mh-colors-available-flag (display-color-p) ; Do we have colors available mh-current-folder (buffer-name) ; Name of folder, a string mh-show-buffer (format "show-%s" (buffer-name)) ; Buffer that displays msgs diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el index dd662f35522..b2c79350c46 100644 --- a/lisp/mh-e/mh-utils.el +++ b/lisp/mh-e/mh-utils.el @@ -60,13 +60,6 @@ used in lieu of `search' in the CL package." (set-syntax-table syntax-table)))) ;;;###mh-autoload -(defun mh-colors-available-p () - "Check if colors are available in the Emacs being used." - ;; FIXME: Can this be replaced with `display-color-p'? - (let ((color-cells (display-color-cells))) - (and (numberp color-cells) (>= color-cells 8)))) - -;;;###mh-autoload (defun mh-colors-in-use-p () "Check if colors are being used in the folder buffer." (and mh-colors-available-flag font-lock-mode)) @@ -1005,6 +998,9 @@ If the current line is too long truncate a part of it as well." (goto-char (point-min)) (re-search-forward mh-signature-separator-regexp nil t))) +;;;###mh-autoload +(define-obsolete-function-alias 'mh-colors-available-p #'display-color-p "29.1") + (provide 'mh-utils) ;; Local Variables: |