From: Nick Roberts <nickrob@snap.net.nz>
Date: Sun, 23 Jul 2006 21:21:29 +0000 (+0000)
Subject: (find-function-search-for-symbol): Expand comment.
X-Git-Tag: emacs-pretest-22.0.90~1280
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35b6eb23c6ec6a7f4cc20743b396549978a3d696;p=emacs.git

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

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