diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 1998-11-25 18:08:05 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 1998-11-25 18:08:05 +0000 |
| commit | 00d1272443dc4a02b81db11c98e019a7000757fa (patch) | |
| tree | c3d1563bb47eb68528c658666e45230d391de6d4 | |
| parent | 783bf52e92cdea2dcca9e42646d3e20f99877375 (diff) | |
Added todo. Put quote into symbol markup.
| -rw-r--r-- | generic/texi-docstring-magic.el | 8 |
1 files 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. |