changeset 72076:3272294d88e3

(find-function-search-for-symbol): Handle "C-h f `".
author Nick Roberts <nickrob@snap.net.nz>
date Sat, 22 Jul 2006 22:51:11 +0000
parents 538434fd1d5d
children e345212112f0
files lisp/emacs-lisp/find-func.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/find-func.el	Sat Jul 22 22:50:46 2006 +0000
+++ b/lisp/emacs-lisp/find-func.el	Sat Jul 22 22:51:11 2006 +0000
@@ -226,7 +226,9 @@
 	   (regexp-symbol (cdr (assq type find-function-regexp-alist))))
       (with-current-buffer (find-file-noselect filename)
 	(let ((regexp (format (symbol-value regexp-symbol)
-			      (regexp-quote (symbol-name symbol))))
+			      ;; Catch ` (backquote) macro.
+			      (concat "\\\\?"
+				      (regexp-quote (symbol-name symbol)))))
 	      (case-fold-search))
 	  (with-syntax-table emacs-lisp-mode-syntax-table
 	    (goto-char (point-min))