procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(find-function-search-for-symbol): Use with-syntax-table.

Browse source
This commit is contained in:
Markus Rost 2002-05-06 21:12:42 +00:00
parent 21936ea51e
commit fe75e6d023
2 changed files with 19 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

30
lisp/emacs-lisp/find-func.el
View file

@ -139,24 +139,20 @@ If VARIABLE-P is nil, `find-function-regexp' is used, otherwise
find-variable-regexp
find-function-regexp)
(regexp-quote (symbol-name symbol))))
(syn-table (syntax-table))
(case-fold-search))
(unwind-protect
(progn
(set-syntax-table emacs-lisp-mode-syntax-table)
(goto-char (point-min))
(if (or (re-search-forward regexp nil t)
(re-search-forward
(concat "^([^ ]+ +"
(regexp-quote (symbol-name symbol))
"\\>")
nil t))
(progn
(beginning-of-line)
(cons (current-buffer) (point)))
(error "Cannot find definition of `%s' in library `%s'"
symbol library)))
(set-syntax-table syn-table)))))))
(with-syntax-table emacs-lisp-mode-syntax-table
(goto-char (point-min))
(if (or (re-search-forward regexp nil t)
(re-search-forward
(concat "^([^ ]+ +"
(regexp-quote (symbol-name symbol))
"\\>")
nil t))
(progn
(beginning-of-line)
(cons (current-buffer) (point)))
(error "Cannot find definition of `%s' in library `%s'"
symbol library))))))))
;;;###autoload
(defun find-function-noselect (function)