Commit b162a8c4 authored by Andreas Schwab's avatar Andreas Schwab
Browse files

(lm-summary): Strip off -*-

specifications from summary line.
parent ee9ec2a5
......@@ -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)))
)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment