diff options
| -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." | |||
| 228 | (interactive) | 228 | (interactive) |
| 229 | (let* ((end (point)) | 229 | (let* ((end (point)) |
| 230 | (buffer-syntax (syntax-table)) | 230 | (buffer-syntax (syntax-table)) |
| 231 | (beg (save-excursion | 231 | (beg (unwind-protect |
| 232 | (set-syntax-table lisp-mode-syntax-table) | 232 | (save-excursion |
| 233 | (backward-sexp 1) | 233 | (set-syntax-table emacs-lisp-mode-syntax-table) |
| 234 | (while (= (char-syntax (following-char)) ?\') | 234 | (backward-sexp 1) |
| 235 | (forward-char 1)) | 235 | (while (= (char-syntax (following-char)) ?\') |
| 236 | (point) | 236 | (forward-char 1)) |
| 237 | (point)) | ||
| 237 | (set-syntax-table buffer-syntax))) | 238 | (set-syntax-table buffer-syntax))) |
| 238 | (pattern (buffer-substring beg end)) | 239 | (pattern (buffer-substring beg end)) |
| 239 | (predicate | 240 | (predicate |