From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Mon, 6 May 2002 21:12:42 +0000 (+0000)
Subject: (find-function-search-for-symbol): Use with-syntax-table.
X-Git-Tag: ttn-vms-21-2-B4~15168
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fe75e6d0237955a3d5bb2c23dfad6bb9c36bc17d;p=emacs.git

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

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)