Commit 822b684f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(lm-section-mark): Accept extra semicolons;

accept spaces at end of line.
parent 651fca74
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment