diff options
| author | Andreas Schwab <schwab@suse.de> | 1998-12-03 09:39:41 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 1998-12-03 09:39:41 +0000 |
| commit | b162a8c47ad372b937542190448379839b7a06b0 (patch) | |
| tree | 6ede755ff2a8364309c497acff3735fd8602be8c /lisp/emacs-lisp/lisp-mnt.el | |
| parent | ee9ec2a52c438e9793f2c9617814d73656827222 (diff) | |
| download | emacs-b162a8c47ad372b937542190448379839b7a06b0.tar.gz emacs-b162a8c47ad372b937542190448379839b7a06b0.tar.bz2 emacs-b162a8c47ad372b937542190448379839b7a06b0.zip | |
(lm-summary): Strip off -*-
specifications from summary line.
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))) ))) |