diff options
| author | Nick Roberts | 2006-07-22 22:51:11 +0000 |
|---|---|---|
| committer | Nick Roberts | 2006-07-22 22:51:11 +0000 |
| commit | 7358462606bab3c5c33dccc133770955bc68bc90 (patch) | |
| tree | 88e2cf51bca17af248aadb92f6c438cff0b1ebd3 | |
| parent | 52c13c9b68ba0d47c5ad8e26694bb65dcf075b96 (diff) | |
| download | emacs-7358462606bab3c5c33dccc133770955bc68bc90.tar.gz emacs-7358462606bab3c5c33dccc133770955bc68bc90.zip | |
(find-function-search-for-symbol): Handle "C-h f `".
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 41c940f1cec..fc79da2a914 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el | |||
| @@ -226,7 +226,9 @@ The search is done in the source for library LIBRARY." | |||
| 226 | (regexp-symbol (cdr (assq type find-function-regexp-alist)))) | 226 | (regexp-symbol (cdr (assq type find-function-regexp-alist)))) |
| 227 | (with-current-buffer (find-file-noselect filename) | 227 | (with-current-buffer (find-file-noselect filename) |
| 228 | (let ((regexp (format (symbol-value regexp-symbol) | 228 | (let ((regexp (format (symbol-value regexp-symbol) |
| 229 | (regexp-quote (symbol-name symbol)))) | 229 | ;; Catch ` (backquote) macro. |
| 230 | (concat "\\\\?" | ||
| 231 | (regexp-quote (symbol-name symbol))))) | ||
| 230 | (case-fold-search)) | 232 | (case-fold-search)) |
| 231 | (with-syntax-table emacs-lisp-mode-syntax-table | 233 | (with-syntax-table emacs-lisp-mode-syntax-table |
| 232 | (goto-char (point-min)) | 234 | (goto-char (point-min)) |