Mercurial > emacs

changeset 23813:198226daae3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lm-summary): Strip off -*- specifications from summary line.
author Andreas Schwab <schwab@suse.de>
date Thu, 03 Dec 1998 09:39:41 +0000
parents baf00f643ccf
children 3229c65a13c5
files lisp/emacs-lisp/lisp-mnt.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mnt.el	Thu Dec 03 09:35:24 1998 +0000
+++ b/lisp/emacs-lisp/lisp-mnt.el	Thu Dec 03 09:39:41 1998 +0000
@@ -250,7 +250,12 @@
 	   (looking-at lm-header-prefix)
 	   (progn (goto-char (match-end 0))
 		  (looking-at "[^ ]+[ \t]+--+[ \t]+\\(.*\\)")))
-	  (buffer-substring-no-properties (match-beginning 1) (match-end 1)))
+	  (let ((summary (buffer-substring-no-properties (match-beginning 1)
+							 (match-end 1))))
+	    ;; Strip off -*- specifications.
+	    (if (string-match "[ \t]*-\\*-.*-\\*-" summary)
+		(substring summary 0 (match-beginning 0))
+	      summary)))
       (if file
 	  (kill-buffer (current-buffer)))
       )))