(describe-function-1): Regexp-quote function name
when used as part of a regexp.
This commit is contained in:
parent
c795794783
commit
0383ed602c
2 changed files with 4 additions and 1 deletions
|
@ -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.
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue