branch: master
commit 78c8b5eb8058e8da523542b1b1de7e21a5b60e14
Author: Noam Postavsky <npost...@users.sourceforge.net>
Commit: Noam Postavsky <npost...@users.sourceforge.net>
yas--document-symbol: fix no transform case
was causing YASnippetnippet
---
doc/yas-doc-helper.el | 9 +++++----
1 files changed, 5 insertions(+), 4 deletions(-)
diff --git a/doc/yas-doc-helper.el b/doc/yas-doc-helper.el
index cec818c..925e41b 100755
--- a/doc/yas-doc-helper.el
+++ b/doc/yas-doc-helper.el
@@ -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-]+\\)'"
