Mercurial > emacs
changeset 7940:02a4dee04373
(lm-section-mark): Accept extra semicolons;
accept spaces at end of line.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 17 Jun 1994 19:59:09 +0000 |
| parents | 338a91733ff9 |
| children | 849b6e20bfd7 |
| files | lisp/emacs-lisp/lisp-mnt.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))