diff options
author | Nick Roberts <nickrob@snap.net.nz> | 2006-07-23 21:21:29 +0000 |
---|---|---|
committer | Nick Roberts <nickrob@snap.net.nz> | 2006-07-23 21:21:29 +0000 |
commit | 35b6eb23c6ec6a7f4cc20743b396549978a3d696 (patch) | |
tree | 59ed00cbe1b7375b8bcc5f67e7acaae3f2601da0 /lisp/emacs-lisp | |
parent | faad80bfe0d719a2d987a09936bb7e0a6f0b3f11 (diff) | |
download | emacs-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.el | 5 |
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)) |