From 1007800a5994ac49b6bc9cd7528edb2d709d2031 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 24 Aug 2022 06:38:36 +0200 Subject: [PATCH] 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'. --- lisp/mh-e/mh-folder.el | 2 +- 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 @@ -59,13 +59,6 @@ used in lieu of `search' in the CL package." (point)) (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." @@ -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: -- 2.39.5