(describe-function-1): Regexp-quote function name

when used as part of a regexp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b0df672d4f1a771a33a7eda648ad6cb52605af15..8b82addf684df1c672f3b2e8e02fb2972e647542 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-11-29  Gerd Moellmann  <gerd@gnu.org>
 
+       * help.el (describe-function-1): Regexp-quote function name
+       when used as part of a regexp.
+
        * toolbar/tool-bar.el (tool-bar-add-item-from-menu): Use
        face-attribute instead of face-foreground and face-background.
        (tool-bar-add-item): Likewise, and handle unspecified colors.

diff --git a/lisp/help.el b/lisp/help.el
index b3e726ba27ce93039e81ee9c8d6019d388acdb22..2690cdc9c043883aa9aa40ec1b993b2438f6d5e7 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -744,7 +744,7 @@ It can also be nil, if the definition is not associated with any file."
                              (name (progn
                                      (string-match " \\([^ ]+\\)>$" rep)
                                      (match-string 1 rep))))
-                        (if (looking-at (format "(%s[ )]" name))
+                        (if (looking-at (format "(%s[ )]" (regexp-quote name)))
                             (let ((start (point-marker)))
                               (goto-char (point-min))
                               (forward-paragraph)