# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 975528318 0
# Node ID 84d5cf98a5a0ec37961fa6f009e75bfd9c71b1dc
# Parent  213a832d6474e5acc2a91c0c18a66801fa777369
(describe-function-1): Regexp-quote function name
when used as part of a regexp.

diff -r 213a832d6474 -r 84d5cf98a5a0 lisp/help.el
--- a/lisp/help.el	Wed Nov 29 19:22:47 2000 +0000
+++ b/lisp/help.el	Wed Nov 29 20:05:18 2000 +0000
@@ -744,7 +744,7 @@
 			      (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)