From: Andreas Schwab <schwab@suse.de>
Date: Thu, 3 Dec 1998 09:39:41 +0000 (+0000)
Subject: (lm-summary): Strip off -*-
X-Git-Tag: emacs-20.4~1136
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b162a8c47ad372b937542190448379839b7a06b0;p=emacs.git

(lm-summary): Strip off -*-
specifications from summary line.
---

diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index a9a43d8ccdd..09e1218d4e6 100644
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -250,7 +250,12 @@ The returned value is a list of strings, one per line."
 	   (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)))
       )))