diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-09-26 21:00:38 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-09-26 21:03:38 +0200 |
commit | da61fd910f4a84d4ac624c78efdb15d27632e6f5 (patch) | |
tree | 3056302e0e16f5e04d1d5ff49491b5966ac9ee7d /helm-lib.el | |
parent | 6ed7d5cfc7b510133d3b7a657acce0b7c1825f07 (diff) |
Allow displaying marked faces in helm-apropos (#1613).
* helm-elisp.el (helm-def-source--emacs-faces): Allow marking candidates.
* helm-lib.el (helm-describe-face): Use marked candidates.
Diffstat (limited to 'helm-lib.el')
-rw-r--r-- | helm-lib.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/helm-lib.el b/helm-lib.el index d7d3fd65..3856005b 100644 --- a/helm-lib.el +++ b/helm-lib.el @@ -547,10 +547,11 @@ Add spaces at end if needed to reach WIDTH when STR is shorter than WIDTH." (cl-letf (((symbol-function 'message) #'ignore)) (describe-variable (helm-symbolify var)))) -(defun helm-describe-face (face) +(defun helm-describe-face (_face) "FACE is symbol or string." - (cl-letf (((symbol-function 'message) #'ignore)) - (describe-face (helm-symbolify face)))) + (let ((faces (helm-marked-candidates))) + (cl-letf (((symbol-function 'message) #'ignore)) + (describe-face (mapcar 'helm-symbolify faces))))) (defun helm-find-function (func) "FUNC is symbol or string." |