From 00d1272443dc4a02b81db11c98e019a7000757fa Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Wed, 25 Nov 1998 18:08:05 +0000 Subject: Added todo. Put quote into symbol markup. --- generic/texi-docstring-magic.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/generic/texi-docstring-magic.el b/generic/texi-docstring-magic.el index 2c05d08d..0834584e 100644 --- a/generic/texi-docstring-magic.el +++ b/generic/texi-docstring-magic.el @@ -64,7 +64,7 @@ ;; Must have at least one hyphen to be recognized, ;; terminated in whitespace, end of line, or punctuation. ;; (Only consider symbols made from word constituents - ;; and hyphens). + ;; and hyphen. ("\\(\\(\\w+\\-\\(\\w\\|\\-\\)+\\)\\)\\(\\s\)\\|\\s-\\|\\s.\\|$\\)" (or (boundp (intern (match-string 2 docstring))) (fboundp (intern (match-string 2 docstring)))) @@ -75,7 +75,9 @@ ;; In fact, include any word so long as it is more than 3 characters ;; long. (Comes after symbols to avoid recognizing the ;; lowercased form of an argument as a symbol) - ("\\([A-Z0-9\\-]+\\)\\(/\\|-\\|\)\\|}\\|\\s-\\|\\s.\\|$\\)" + ;; FIXME: maybe we don't want to downcase stuff already + ;; inside @samp + ("\\([A-Z0-9\\-_]+\\)\\(/\\|-\\|\)\\|}\\|\\s-\\|\\s.\\|$\\)" (or (> (length (match-string 1 docstring)) 3) (member (downcase (match-string 1 docstring)) args)) (concat "@var{" (downcase (match-string 1 docstring)) "}" @@ -86,7 +88,7 @@ ("\\(\\(\\s-\\|^\\)'\\(\\(\\w\\|\\-\\)+\\)\\)\\(\\s\)\\|\\s-\\|\\s.\\|$\\)" t (concat (match-string 2 docstring) - "@code{" (match-string 3 docstring) "}" + "@code{'" (match-string 3 docstring) "}" (match-string 5 docstring))) ;; 8,9. Clean up for @lisp environments left with spurious newlines ;; after 1. -- cgit v1.2.3