diff options
| author | David Aspinall | 1998-11-25 12:47:49 +0000 |
|---|---|---|
| committer | David Aspinall | 1998-11-25 12:47:49 +0000 |
| commit | a664ed95f715e52aaf019fa72390a555c6b95243 (patch) | |
| tree | 0e6121ef53385560ade26916fa4cf4b7f525d1b3 | |
| parent | c4179c4baf525bac60131d0a4c8309390154a16f (diff) | |
fixed up newlines in @lisp environments.
| -rw-r--r-- | generic/texi-docstring-magic.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/texi-docstring-magic.el b/generic/texi-docstring-magic.el index 46e04b1c..919c1fd1 100644 --- a/generic/texi-docstring-magic.el +++ b/generic/texi-docstring-magic.el @@ -29,9 +29,6 @@ (defconst texi-docstring-magic-munge-table '(;; 1. Indented lines are gathered into @lisp environment. - ;; FIXME: this isn't quite as good as it could be, we - ;; get the last empty line included in the environment - ;; rather than outside it. ("\\(^.*\\S-.*$\\)" t (let @@ -80,7 +77,11 @@ t (concat (match-string 2 docstring) "@code{" (match-string 3 docstring) "}" - (match-string 5 docstring)))) + (match-string 5 docstring))) + ;; 6,7. Clean up for @lisp environments left with spurious newlines + ;; after 1. + ("\\(\\(^\\s-*$\\)\n@lisp\\)" t "@lisp") + ("\\(\\(^\\s-*$\\)\n@end lisp\\)" t "@end lisp")) "Table of regexp matches and replacements used to markup docstrings. Format of table is a list of elements of the form (regexp predicate replacement-form) |