[elpa] master 21914cf 064/177: yas--document-symbol: reindent

[João Távora]

branch: master
commit 21914cfe32814317543626beccb0ac0672a780b8
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    yas--document-symbol: reindent
---
 doc/yas-doc-helper.el |   35 +++++++++++++++++++----------------
 1 files changed, 19 insertions(+), 16 deletions(-)

diff --git a/doc/yas-doc-helper.el b/doc/yas-doc-helper.el
index 4969bdf..ae06015 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