From fe75e6d0237955a3d5bb2c23dfad6bb9c36bc17d Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Mon, 6 May 2002 21:12:42 +0000 Subject: (find-function-search-for-symbol): Use with-syntax-table. --- lisp/emacs-lisp/find-func.el | 30 +++++++++++++----------------- 1 file changed, 13 insertions(+), 17 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 8850273b491..78dece5b47d 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -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) -- cgit v1.2.3