From 0a9885eb627303b2841fbd364176ea4811646303 Mon Sep 17 00:00:00 2001
From: Noam Postavsky <npostavs@users.sourceforge.net>
Date: Mon, 2 Dec 2013 23:19:23 -0500
Subject: [PATCH] markup suffixed variable names, eg SUBEXPth

---
 doc/yas-doc-helper.el | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/doc/yas-doc-helper.el b/doc/yas-doc-helper.el
index fc3c1b55a..d504f67cb 100755
--- a/doc/yas-doc-helper.el
+++ b/doc/yas-doc-helper.el
@@ -61,17 +61,20 @@
                      (format "*WARNING*: no doc for symbol =%s=" symbol)))
            (case-fold-search nil))
       ;; do some transformations on the body:
-      ;; ARG becomes =arg=
+      ;; ARGxxx becomes @<code>arg@</code>xxx
       ;; FOO becomes /foo/
       ;; `bar' becomes [[#bar][=bar=]]
       (setq body (replace-regexp-in-string
-                  "\\<[A-Z][A-Z-]+\\>"
+                  "\\<\\([A-Z][-A-Z0-9]+\\)\\(\\sw+\\)?\\>"
                   #'(lambda (match)
-                      (setq match (downcase match))
-                      (format (if (member match args)
-                                  "=%s=" "/%s/")
-                              match))
-                  body t)
+                      (let* ((match1 (downcase (match-string 1 match)))
+                             (suffix (match-string 2 match))
+                             (fmt (cond
+                                   ((member match1 args) "@<code>%s@</code>")
+                                   ((null suffix) "/%s/"))))
+                        (if fmt (format fmt match1)
+                          match)))
+                  body t t 1)
             body (replace-regexp-in-string
                   "`\\([a-z-]+\\)'"
                   #'(lambda (match)
-- 
2.39.2