procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make mh-colors-available-p obsolete

Browse source 
* lisp/mh-e/mh-utils.el (mh-colors-available-p): Redefine as
obsolete function alias for 'display-color-p'.
This commit is contained in:
Stefan Kangas 2022-08-24 06:38:36 +02:00
parent 10a31c6a29
commit 1007800a59
2 changed files with 4 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/mh-e/mh-folder.el
View file

@ -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

10
lisp/mh-e/mh-utils.el
View file

@ -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: