[Emacs-diffs] emacs/lisp/emacs-lisp eldoc.el

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Martin Rudalics <m061211>       08/11/28 10:22:53

Modified files:
        lisp/emacs-lisp: eldoc.el 

Log message:
        (eldoc-docstring-first-line): Don't match
        any but the first "*" in a doc-string.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/eldoc.el?cvsroot=emacs&r1=1.52&r2=1.53

Patches:
Index: eldoc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/eldoc.el,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -b -r1.52 -r1.53
--- eldoc.el    6 May 2008 03:21:16 -0000       1.52
+++ eldoc.el    28 Nov 2008 10:22:53 -0000      1.53
@@ -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)