only /italicize/ words completely in upper case

no /YAS/nippet
This commit is contained in:
Noam Postavsky 2013-11-28 23:27:03 -05:00
parent a9e303525c
commit eda83304af

View File

@ -65,7 +65,7 @@
;; FOO becomes /foo/ ;; FOO becomes /foo/
;; `bar' becomes [[#bar][=bar=]] ;; `bar' becomes [[#bar][=bar=]]
(setq body (replace-regexp-in-string (setq body (replace-regexp-in-string
"[A-Z][A-Z-]+" "\\<[A-Z][A-Z-]+\\>"
#'(lambda (match) #'(lambda (match)
(setq match (downcase match)) (setq match (downcase match))
(format (if (member match args) (format (if (member match args)