diff options
| author | David Aspinall | 1998-11-25 12:31:38 +0000 |
|---|---|---|
| committer | David Aspinall | 1998-11-25 12:31:38 +0000 |
| commit | c91765f2c59ff1b8855f18760b124efda2ad7778 (patch) | |
| tree | 7f37482f939c63f69116ab488bfc10aeda1dcb55 | |
| parent | 6a3d5defc9e96eca8717fe8543001fcdf12b5b38 (diff) | |
Added syntax table stuff
| -rw-r--r-- | generic/texi-docstring-magic.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/texi-docstring-magic.el b/generic/texi-docstring-magic.el index 8d42b2e3..dabaa873 100644 --- a/generic/texi-docstring-magic.el +++ b/generic/texi-docstring-magic.el @@ -50,10 +50,11 @@ (concat "@var{" (downcase (match-string 1 docstring)) "}" (match-string 2 docstring))) ;; Words sym which are symbols become @code{sym}. - ;; Must have at least one hyphen to be recognized. + ;; 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). - ("\\(\\w+\\-\\(\\w\\|\\-\\)+\\)\\(\\s-\\|\\.\\|$\\)" + ("\\(\\w+\\-\\(\\w\\|\\-\\)+\\)\\(\\s-\\|\\s.\\|$\\)" (or (boundp (intern (match-string 1 docstring))) (fboundp (intern (match-string 1 docstring)))) (concat "@code{" (match-string 1 docstring) "}" @@ -76,6 +77,7 @@ and forms such as (match-string 1 docstring)") (replace (nth 2 test)) (i 0) in-quoted-region) + (while (and (< i (length docstring)) (string-match regexp docstring i)) |