# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 1020719518 0
# Node ID 4a2bcce6b13a89151f70f9eec6a77330fbed7d48
# Parent  f821fa45b82267664e8484d34ee687efb961425b
(find-function-search-for-symbol): Use with-syntax-table.

diff -r f821fa45b822 -r 4a2bcce6b13a lisp/emacs-lisp/find-func.el
--- a/lisp/emacs-lisp/find-func.el	Mon May 06 21:11:51 2002 +0000
+++ b/lisp/emacs-lisp/find-func.el	Mon May 06 21:11:58 2002 +0000
@@ -139,24 +139,20 @@
 				  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)