branch: master commit 21914cfe32814317543626beccb0ac0672a780b8 Author: Noam Postavsky <npost...@users.sourceforge.net> Commit: Noam Postavsky <npost...@users.sourceforge.net>
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