Mercurial > emacs

changeset 119:7cfabf2a8964

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Mon, 12 Nov 1990 22:03:33 +0000
parents 49342840ba00
children 86f080a3d883
files lisp/emacs-lisp/lisp.el
diffstat 1 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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