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

any but the first "*" in a doc-string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b85f3ffbc7028422e3baf7f0b07040f9e9420362..a3e37246f424a37c631f2f932b540c8193637883 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el
index 710ff821f1dcb698fea23001e1c33abe94f0c1fb..d6fa09e94a5046ff27946b1296b50f5d0547290c 100644 (file)
--- a/lisp/emacs-lisp/eldoc.el
+++ b/lisp/emacs-lisp/eldoc.el
@@ -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)