changeset 45150:4a2bcce6b13a

(find-function-search-for-symbol): Use with-syntax-table.
author Markus Rost <rost@math.uni-bielefeld.de>
date Mon, 06 May 2002 21:11:58 +0000
parents f821fa45b822
children e5a353edec82
files lisp/emacs-lisp/find-func.el
diffstat 1 files changed, 13 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- 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)