# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 912677981 0
# Node ID 198226daae3b5ab1b449981517227e77612d0bc8
# Parent  baf00f643ccf0a4cc87e215b0236176bf67861be
(lm-summary): Strip off -*-
specifications from summary line.

diff -r baf00f643ccf -r 198226daae3b lisp/emacs-lisp/lisp-mnt.el
--- 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)))
       )))