only /italicize/ words completely in upper case

no /YAS/nippet

diff --git a/doc/yas-doc-helper.el b/doc/yas-doc-helper.el
index 8baa26aaf1dba10c7e410cf161af882b2fadad27..fc3c1b55a3a948fa8b8dc17d946a40e9a9b2d587 100755 (executable)
--- a/doc/yas-doc-helper.el
+++ b/doc/yas-doc-helper.el
@@ -65,7 +65,7 @@
       ;; FOO becomes /foo/
       ;; `bar' becomes [[#bar][=bar=]]
       (setq body (replace-regexp-in-string
-                  "[A-Z][A-Z-]+"
+                  "\\<[A-Z][A-Z-]+\\>"
                   #'(lambda (match)
                       (setq match (downcase match))
                       (format (if (member match args)