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

2 files changed, 19 insertions, 18 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5904b7c9179..7293631addb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,10 +1,15 @@
+2002-05-06  Markus Rost  <rost@math.ohio-state.edu>
+
+        * emacs-lisp/find-func.el (find-function-search-for-symbol): Use
+        with-syntax-table.
+
 2002-05-06  Francesco Potorti`  <pot@gnu.org>
 
         * mail/rmail.el (rmail-font-lock-keywords): Highlight Resent-[Ff]rom:.
 
 2002-05-05  Markus Rost  <rost@math.ohio-state.edu>
 
-        * time-stamp.el (time-stamp-format):  Doc fix: escape open
+        * time-stamp.el (time-stamp-format): Doc fix: escape open
         parenthesis in column 0.
 
 2002-05-04  Richard M. Stallman  <rms@gnu.org>
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)