From b4986e908ade717800eec0bb8f21514f0c5d0328 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 8 Jun 2017 02:04:45 +0200 Subject: [PATCH] doom/what-face: return list noninteractively --- core/autoload/debug.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/core/autoload/debug.el b/core/autoload/debug.el index 6e6889200..bb7b7d621 100644 --- a/core/autoload/debug.el +++ b/core/autoload/debug.el @@ -13,11 +13,13 @@ (let ((face (overlay-get ov 'face))) (dolist (f (if (listp face) face (list face))) (push (propertize (concat (symbol-name f) "*") 'face f) faces)))) + (if (called-interactively-p 'any) + (message "%s %s" + (propertize "Faces:" 'face 'font-lock-comment-face) + (if faces (string-join faces ", ") "n/a")) + (mapcar #'substring-no-properties faces)))) - (message "%s %s" - (propertize "Faces:" 'face 'font-lock-comment-face) - (if faces (string-join faces ", ") "n/a")))) - +;;;###autoload (defun doom-active-minor-modes () "Get a list of active minor-mode symbols." (cl-remove-if (lambda (m) (and (boundp m) (symbol-value m)))