(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 a9a43d8ccdd74c5d3c9c05e629ca8ebd97f0e37f..09e1218d4e6c0f1f3014da6d9ef97fc7e8ef8d57 100644 (file)
--- 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)))
       )))