# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 771883149 0
# Node ID 02a4dee04373888ce4c1d3895a289f5e38203d29
# Parent  338a91733ff97bf79d3b979f3f2ea3427b56625e
(lm-section-mark): Accept extra semicolons;
accept spaces at end of line.

diff -r 338a91733ff9 -r 02a4dee04373 lisp/emacs-lisp/lisp-mnt.el
--- a/lisp/emacs-lisp/lisp-mnt.el	Fri Jun 17 16:03:59 1994 +0000
+++ b/lisp/emacs-lisp/lisp-mnt.el	Fri Jun 17 19:59:09 1994 +0000
@@ -5,7 +5,7 @@
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Created: 14 Jul 1992
-;; Version: $Id: lisp-mnt.el,v 1.7 1993/12/26 08:02:10 rms Exp kwzh $
+;; Version: $Id: lisp-mnt.el,v 1.8 1994/05/03 23:21:00 kwzh Exp rms $
 ;; Keywords: docs
 ;; X-Bogus-Bureaucratic-Cruft: Gruad will get you if you don't watch out!
 
@@ -123,7 +123,7 @@
   (save-excursion
     (let ((case-fold-search t))
       (goto-char (point-min))
-      (if (re-search-forward (concat "^;;; " hd ":$") nil t)
+      (if (re-search-forward (concat "^;;;;* " hd ":[ \t]*$") nil t)
 	  (progn
 	    (beginning-of-line)
 	    (if after (forward-line 1))