From: Noam Postavsky <npostavs@users.sourceforge.net>
Date: Fri, 29 Nov 2013 03:06:06 +0000 (-0500)
Subject: yas--document-symbol: reindent
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/21914cfe32814317543626beccb0ac0672a780b8

yas--document-symbol: reindent
---

diff --git a/doc/yas-doc-helper.el b/doc/yas-doc-helper.el
index 4969bdf47..ae06015d8 100755
--- a/doc/yas-doc-helper.el
+++ b/doc/yas-doc-helper.el
@@ -65,23 +65,26 @@
       ;; FOO becomes /foo/
       ;; `bar' becomes [[#bar][=bar=]]
       (setq body (replace-regexp-in-string
-                  "[A-Z][A-Z-]+" #'(lambda (match)
-                                     (setq match (downcase match))
-                                     (format (if (member match args)
-                                                 "=%s=" "/%s/")
-                                             match))
+                  "[A-Z][A-Z-]+"
+                  #'(lambda (match)
+                      (setq match (downcase match))
+                      (format (if (member match args)
+                                  "=%s=" "/%s/")
+                              match))
                   body t)
-            body (replace-regexp-in-string "`\\([a-z-]+\\)'" #'(lambda (match)
-                                                                 (let* ((name (downcase (match-string 1 match)))
-                                                                        (sym (intern name)))
-                                                                   (if (and (or (boundp sym)
-                                                                                (fboundp sym))
-                                                                            (save-match-data
-                                                                              (string-match "^yas-" name)))
-                                                                       (format "[[#%s][=%s=]]"
-                                                                               name name)
-                                                                     (format "=%s=" name))))
-                                           body))
+            body (replace-regexp-in-string
+                  "`\\([a-z-]+\\)'"
+                  #'(lambda (match)
+                      (let* ((name (downcase (match-string 1 match)))
+                             (sym (intern name)))
+                        (if (and (or (boundp sym)
+                                     (fboundp sym))
+                                 (save-match-data
+                                   (string-match "^yas-" name)))
+                            (format "[[#%s][=%s=]]"
+                                    name name)
+                          (format "=%s=" name))))
+                  body))
       ;; output the paragraph
       ;;
       (concat-lines heading