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

when used as part of a regexp.
This commit is contained in:
Gerd Moellmann 2000-11-29 20:05:46 +00:00
parent c795794783
commit 0383ed602c
2 changed files with 4 additions and 1 deletions

View file

@ -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.

View file

@ -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)