yas--document-symbol: fix no transform case

was causing YASnippetnippet
This commit is contained in:
Noam Postavsky 2013-12-24 11:49:24 -05:00
parent df58222fe6
commit 78c8b5eb80

View File

@ -67,13 +67,14 @@
(setq body (replace-regexp-in-string
"\\<\\([A-Z][-A-Z0-9]+\\)\\(\\sw+\\)?\\>"
#'(lambda (match)
(let* ((match1 (downcase (match-string 1 match)))
(let* ((match1 (match-string 1 match))
(prefix (downcase match1))
(suffix (match-string 2 match))
(fmt (cond
((member match1 args) "@<code>%s@</code>")
((member prefix args) "@<code>%s@</code>")
((null suffix) "/%s/"))))
(if fmt (format fmt match1)
match)))
(if fmt (format fmt prefix)
match1)))
body t t 1)
body (replace-regexp-in-string
"`\\([a-z-]+\\)'"