mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/eldoc.el
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)