# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1227867773 0
# Node ID eda94c1ba359d7806320f7dac1aeb95c05b6b527
# Parent  28d216f71b5a876da60c974a8d962ca2e301028e
(eldoc-docstring-first-line): Don't match
any but the first "*" in a doc-string.

diff -r 28d216f71b5a -r eda94c1ba359 lisp/emacs-lisp/eldoc.el
--- a/lisp/emacs-lisp/eldoc.el	Fri Nov 28 05:40:36 2008 +0000
+++ b/lisp/emacs-lisp/eldoc.el	Fri Nov 28 10:22:53 2008 +0000
@@ -367,7 +367,9 @@
   (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)