From 35b6eb23c6ec6a7f4cc20743b396549978a3d696 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Sun, 23 Jul 2006 21:21:29 +0000 Subject: [PATCH] (find-function-search-for-symbol): Expand comment. --- lisp/emacs-lisp/find-func.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index fc79da2a914..50b7d8dc9ef 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -226,7 +226,10 @@ The search is done in the source for library LIBRARY." (regexp-symbol (cdr (assq type find-function-regexp-alist)))) (with-current-buffer (find-file-noselect filename) (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 "\\\\?" (regexp-quote (symbol-name symbol))))) (case-fold-search)) -- 2.39.2