summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorNick Roberts <nickrob@snap.net.nz>2006-07-23 21:21:29 +0000
committerNick Roberts <nickrob@snap.net.nz>2006-07-23 21:21:29 +0000
commit35b6eb23c6ec6a7f4cc20743b396549978a3d696 (patch)
tree59ed00cbe1b7375b8bcc5f67e7acaae3f2601da0 /lisp/emacs-lisp
parentfaad80bfe0d719a2d987a09936bb7e0a6f0b3f11 (diff)
downloademacs-35b6eb23c6ec6a7f4cc20743b396549978a3d696.tar.gz
emacs-35b6eb23c6ec6a7f4cc20743b396549978a3d696.tar.bz2
emacs-35b6eb23c6ec6a7f4cc20743b396549978a3d696.zip
(find-function-search-for-symbol): Expand comment.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/find-func.el5
1 files changed, 4 insertions, 1 deletions
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))