139 |
find-variable-regexp |
find-variable-regexp |
140 |
find-function-regexp) |
find-function-regexp) |
141 |
(regexp-quote (symbol-name symbol)))) |
(regexp-quote (symbol-name symbol)))) |
|
(syn-table (syntax-table)) |
|
142 |
(case-fold-search)) |
(case-fold-search)) |
143 |
(unwind-protect |
(with-syntax-table emacs-lisp-mode-syntax-table |
144 |
(progn |
(goto-char (point-min)) |
145 |
(set-syntax-table emacs-lisp-mode-syntax-table) |
(if (or (re-search-forward regexp nil t) |
146 |
(goto-char (point-min)) |
(re-search-forward |
147 |
(if (or (re-search-forward regexp nil t) |
(concat "^([^ ]+ +" |
148 |
(re-search-forward |
(regexp-quote (symbol-name symbol)) |
149 |
(concat "^([^ ]+ +" |
"\\>") |
150 |
(regexp-quote (symbol-name symbol)) |
nil t)) |
151 |
"\\>") |
(progn |
152 |
nil t)) |
(beginning-of-line) |
153 |
(progn |
(cons (current-buffer) (point))) |
154 |
(beginning-of-line) |
(error "Cannot find definition of `%s' in library `%s'" |
155 |
(cons (current-buffer) (point))) |
symbol library)))))))) |
|
(error "Cannot find definition of `%s' in library `%s'" |
|
|
symbol library))) |
|
|
(set-syntax-table syn-table))))))) |
|
156 |
|
|
157 |
;;;###autoload |
;;;###autoload |
158 |
(defun find-function-noselect (function) |
(defun find-function-noselect (function) |