diff options
| author | Richard M. Stallman <rms@gnu.org> | 1990-11-12 22:03:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1990-11-12 22:03:33 +0000 |
| commit | ecb759429709c58d1ec5e1865f74fd5979d83e2e (patch) | |
| tree | 0f4ed1616816cf3cbb16c73f65aa063f89a1f4ca /lisp/emacs-lisp | |
| parent | dcfdbac7bb0fd364ddf542ed10b9ff2271c37096 (diff) | |
| download | emacs-ecb759429709c58d1ec5e1865f74fd5979d83e2e.tar.gz emacs-ecb759429709c58d1ec5e1865f74fd5979d83e2e.tar.bz2 emacs-ecb759429709c58d1ec5e1865f74fd5979d83e2e.zip | |
*** empty log message ***
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 13 |
1 files changed, 7 insertions, 6 deletions
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 |