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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5904b7c9179a5ebc65d3598a09c3ce1ef0449f7e..7293631addb509954993a5cadf4bfc51328bfdb3 100644 (file)
--- 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 8850273b49171cce0f8bc563a09e6de10ab4c42f..78dece5b47da4e8c38a81b6a70b8e031471ca13d 100644 (file)
--- 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)