diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-09-27 08:39:16 +0200 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-09-27 08:39:16 +0200 |
| commit | 115c98dd89e8b001d21f98772f26a1d6af2e7825 (patch) | |
| tree | 6b942378a36b40ba932c8663b438f7a719ea84df /helm-lib.el | |
| parent | da61fd910f4a84d4ac624c78efdb15d27632e6f5 (diff) | |
Fix helm-describe-face.
* helm-lib.el (helm-describe-face): Do it.
Diffstat (limited to 'helm-lib.el')
| -rw-r--r-- | helm-lib.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/helm-lib.el b/helm-lib.el index 3856005b..fb89b826 100644 --- a/helm-lib.el +++ b/helm-lib.el @@ -547,11 +547,13 @@ 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." (let ((faces (helm-marked-candidates))) (cl-letf (((symbol-function 'message) #'ignore)) - (describe-face (mapcar 'helm-symbolify faces))))) + (describe-face (if (cdr faces) + (mapcar 'helm-symbolify faces) + (helm-symbolify face)))))) (defun helm-find-function (func) "FUNC is symbol or string." |