From a664ed95f715e52aaf019fa72390a555c6b95243 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Wed, 25 Nov 1998 12:47:49 +0000
Subject: fixed up newlines in @lisp environments.

---
 generic/texi-docstring-magic.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'generic')

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)
-- 
cgit v1.2.3