(eldoc-docstring-first-line): Don't match

any but the first "*" in a doc-string.
This commit is contained in:
Martin Rudalics 2008-11-28 10:23:21 +00:00
parent 59bc82c0b9
commit 4d1243c826
2 changed files with 8 additions and 1 deletions

View file

@ -1,3 +1,8 @@
2008-11-28 Martin Rudalics <rudalics@gmx.at>
* emacs-lisp/eldoc.el (eldoc-docstring-first-line): Don't match
any but the first "*" in a doc-string.
2008-11-28 Glenn Morris <rgm@gnu.org>
* format.el (format-write-file): Improve previous doc fix.

View file

@ -367,7 +367,9 @@ In the absence of INDEX, just call `eldoc-docstring-format-sym-doc'."
(and (stringp doc)
(substitute-command-keys
(save-match-data
(let ((start (if (string-match "^\\*" doc) (match-end 0) 0)))
;; Don't use "^" in the regexp below since it may match
;; anywhere in the doc-string.
(let ((start (if (string-match "\\`\\*" doc) (match-end 0) 0)))
(cond ((string-match "\n" doc)
(substring doc start (match-beginning 0)))
((zerop start) doc)