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

Replace symbol-name by format %S

This commit is contained in:
syl20bnr 2015-02-22 01:02:17 -05:00
parent ec0704c894
commit c2e61a9036
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
core/core-micro-state.el
View File

@ -81,12 +81,12 @@ Available PROPS:
(wrappers (spacemacs//micro-state-create-wrappers name doc bindings))
(keymap-body (spacemacs//micro-state-fill-map-sexps wrappers)))
`(defun ,func ()
,(format "%s micro-state." (symbol-name name))
,(format "%S micro-state." name)
(interactive)
(let ((doc ,@doc))
(when doc
(lv-message (spacemacs//micro-state-propertize-doc
(concat ,(symbol-name name) ": " doc)))))
(format "%S: %s" ',name doc)))))
,@on-enter
(,(if (version< emacs-version "24.4")
'set-temporary-overlay-map
@ -97,7 +97,7 @@ Available PROPS:
(defun spacemacs//micro-state-func-name (name)
"Return the name of the micro-state function."
(intern (format "spacemacs/%s-micro-state" (symbol-name name))))
(intern (format "spacemacs/%S-micro-state" name)))
(defun spacemacs//micro-state-create-wrappers (name doc bindings)
"Return an alist (key wrapper) for each binding in BINDINGS."
@ -114,10 +114,7 @@ Available PROPS:
(binding-doc (spacemacs/mplist-get binding :doc))
(binding-pre (spacemacs/mplist-get binding :pre))
(binding-post (spacemacs/mplist-get binding :post))
(wrapper-name (intern (format "spacemacs//%s-%s-%s"
(symbol-name name)
(symbol-name wrapped)
key)))
(wrapper-name (intern (format "spacemacs//%S-%S-%s" name wrapped key)))
(wrapper-func
(eval `(defun ,wrapper-name ()
"Auto-generated function"
@ -130,12 +127,11 @@ Available PROPS:
(defdoc ,@default-doc))
(if bdoc
(lv-message (spacemacs//micro-state-propertize-doc
(concat ,(symbol-name name) ": " bdoc)))
(format "%S: %s" ',name bdoc)))
(when (and defdoc
',wrapped (not (plist-get ',binding :exit)))
(lv-message (spacemacs//micro-state-propertize-doc
(concat ,(symbol-name name) ": "
defdoc))))))))))
(format "%S: %s" ',name defdoc))))))))))
(append (list (car binding) wrapper-func) binding)))
(defun spacemacs//micro-state-fill-map-sexps (wrappers)