TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fix helm-faces to select face under point

Browse source
This commit is contained in:
Muneeb Shaikh 2015-11-08 11:48:36 +05:30 committed by Eivind Fonn
parent 17f6225c5d
commit b5dbcf5027
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
layers/+distribution/spacemacs-base/packages.el
View file

@ -627,10 +627,11 @@ Removes the automatic guessing of the initial value based on thing at point. "
"Describe face."
(interactive)
(require 'helm-elisp)
(let ((default (thing-at-point 'symbol)))
(helm :sources (list (helm-def-source--emacs-faces default))
:buffer "*helm faces*"
:preselect (and default (concat "\\_<" (regexp-quote default) "\\_>")))))
(let ((default (face-at-point)))
(helm :sources (helm-def-source--emacs-faces (if default
(symbol-name default)
"default"))
:buffer "*helm faces*")))
;; use helm by default for M-x
(unless (configuration-layer/package-usedp 'smex)