procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(lm-summary): Strip off -*-

Browse source 
specifications from summary line.
This commit is contained in:
Andreas Schwab 1998-12-03 09:39:41 +00:00
parent ee9ec2a52c
commit b162a8c47a
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/lisp-mnt.el
View file

@ -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)))
)))