Mercurial > emacs
comparison lisp/emacs-lisp/find-func.el @ 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 | fcc45339ef47 |
| children | 811ddd9e59a1 |
comparison
equal
deleted
inserted
replaced
| 72075:538434fd1d5d | 72076:3272294d88e3 |
|---|---|
| 224 (setq library (substring library 0 (match-beginning 1)))) | 224 (setq library (substring library 0 (match-beginning 1)))) |
| 225 (let* ((filename (find-library-name library)) | 225 (let* ((filename (find-library-name 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)) |
| 233 (if (or (re-search-forward regexp nil t) | 235 (if (or (re-search-forward regexp nil t) |
| 234 ;; `regexp' matches definitions using known forms like | 236 ;; `regexp' matches definitions using known forms like |