Mercurial > emacs
comparison lisp/emacs-lisp/find-func.el @ 23287:bf60e2b4da28
(find-function-search-for-symbol): Fix error messages.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 21 Sep 1998 16:35:21 +0000 |
| parents | d311287a03a6 |
| children | e221aa952b5b |
comparison
equal
deleted
inserted
replaced
| 23286:3ccc2a1aa6fa | 23287:bf60e2b4da28 |
|---|---|
| 126 (or (locate-library (concat library ".el.gz") | 126 (or (locate-library (concat library ".el.gz") |
| 127 t path) | 127 t path) |
| 128 (locate-library (concat library ".gz") | 128 (locate-library (concat library ".gz") |
| 129 t path))))))) | 129 t path))))))) |
| 130 (if (not filename) | 130 (if (not filename) |
| 131 (error "The library \"%s\" is not in the path." library)) | 131 (error "The library `%s' is not in the path" library)) |
| 132 (with-current-buffer (find-file-noselect filename) | 132 (with-current-buffer (find-file-noselect filename) |
| 133 (save-match-data | 133 (save-match-data |
| 134 (let ((regexp (format (if variable-p | 134 (let ((regexp (format (if variable-p |
| 135 find-variable-regexp | 135 find-variable-regexp |
| 136 find-function-regexp) | 136 find-function-regexp) |
| 142 (goto-char (point-min)) | 142 (goto-char (point-min)) |
| 143 (if (re-search-forward regexp nil t) | 143 (if (re-search-forward regexp nil t) |
| 144 (progn | 144 (progn |
| 145 (beginning-of-line) | 145 (beginning-of-line) |
| 146 (cons (current-buffer) (point))) | 146 (cons (current-buffer) (point))) |
| 147 (error "Cannot find definition of `%s' in library \"%s\"" | 147 (error "Cannot find definition of `%s' in library `%s'" |
| 148 symbol library))) | 148 symbol library))) |
| 149 (set-syntax-table syn-table))))))) | 149 (set-syntax-table syn-table))))))) |
| 150 | 150 |
| 151 ;;;###autoload | 151 ;;;###autoload |
| 152 (defun find-function-noselect (function) | 152 (defun find-function-noselect (function) |