emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 78c8b5e 090/177: yas--document-symbol: fix no transform ca


From: João Távora
Subject: [elpa] master 78c8b5e 090/177: yas--document-symbol: fix no transform case
Date: Sat, 28 Mar 2015 15:41:09 +0000

branch: master
commit 78c8b5eb8058e8da523542b1b1de7e21a5b60e14
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    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-]+\\)'"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]