# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 658447413 0
# Node ID 7cfabf2a8964c4a6fe9a2d2a7a9f8af94ac7bb1e
# Parent  49342840ba008b7bcc50643264eb545c95f9a42d
*** empty log message ***

diff -r 49342840ba00 -r 7cfabf2a8964 lisp/emacs-lisp/lisp.el
--- a/lisp/emacs-lisp/lisp.el	Mon Nov 12 20:20:45 1990 +0000
+++ b/lisp/emacs-lisp/lisp.el	Mon Nov 12 22:03:33 1990 +0000
@@ -228,12 +228,13 @@
   (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