From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 12 Nov 1990 22:03:33 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-19.34~15705
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ecb759429709c58d1ec5e1865f74fd5979d83e2e;p=emacs.git

*** empty log message ***
---

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index bffaee57487..9cd267a76f4 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -228,12 +228,13 @@ or properties are considered."
   (interactive)
   (let* ((end (point))
 	 (buffer-syntax (syntax-table))
-	 (beg (save-excursion
-		(set-syntax-table lisp-mode-syntax-table)
-		(backward-sexp 1)
-		(while (= (char-syntax (following-char)) ?\')
-		  (forward-char 1))
-		(point)
+	 (beg (unwind-protect
+		  (save-excursion
+		    (set-syntax-table emacs-lisp-mode-syntax-table)
+		    (backward-sexp 1)
+		    (while (= (char-syntax (following-char)) ?\')
+		      (forward-char 1))
+		    (point))
 		(set-syntax-table buffer-syntax)))
 	 (pattern (buffer-substring beg end))
 	 (predicate