yas--document-symbol: reindent

This commit is contained in:
Noam Postavsky 2013-11-28 22:06:06 -05:00
parent 46c378d738
commit 21914cfe32

View File

@ -65,13 +65,16 @@
;; FOO becomes /foo/
;; `bar' becomes [[#bar][=bar=]]
(setq body (replace-regexp-in-string
"[A-Z][A-Z-]+" #'(lambda (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)
body (replace-regexp-in-string
"`\\([a-z-]+\\)'"
#'(lambda (match)
(let* ((name (downcase (match-string 1 match)))
(sym (intern name)))
(if (and (or (boundp sym)