mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 15:21:51 -08:00
Code Issues Projects Releases Wiki Activity

(find-function-search-for-symbol): Expand comment.

Browse source
This commit is contained in:
Nick Roberts 2006-07-23 21:21:29 +00:00
parent faad80bfe0
commit 35b6eb23c6
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/find-func.el
View file

@ -226,7 +226,10 @@ The search is done in the source for library LIBRARY."
(regexp-symbol (cdr (assq type find-function-regexp-alist)))) (regexp-symbol (cdr (assq type find-function-regexp-alist))))
(with-current-buffer (find-file-noselect filename) (with-current-buffer (find-file-noselect filename)
(let ((regexp (format (symbol-value regexp-symbol) (let ((regexp (format (symbol-value regexp-symbol)
;; Catch ` (backquote) macro. ;; Entry for ` (backquote) macro in loaddefs.el,
;; (defalias (quote \`)..., has a \ but
;; (symbol-name symbol) doesn't. Add an
;; optional \ to catch this.
(concat "\\\\?" (concat "\\\\?"
(regexp-quote (symbol-name symbol))))) (regexp-quote (symbol-name symbol)))))
(case-fold-search)) (case-fold-search))