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