changeset 72079:811ddd9e59a1

(find-function-search-for-symbol): Expand comment.
author Nick Roberts <nickrob@snap.net.nz>
date Sun, 23 Jul 2006 21:21:29 +0000
parents 5d973bcbba35
children 4f904c7a56f1
files lisp/emacs-lisp/find-func.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/find-func.el	Sun Jul 23 21:20:50 2006 +0000
+++ b/lisp/emacs-lisp/find-func.el	Sun Jul 23 21:21:29 2006 +0000
@@ -226,7 +226,10 @@
 	   (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))