diff options
Diffstat (limited to 'lisp/emacs-lisp/lisp-mnt.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mnt.el | 7 |
1 files changed, 6 insertions, 1 deletions
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))) ))) |