diff options
| author | Richard M. Stallman | 1990-11-12 22:03:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1990-11-12 22:03:33 +0000 |
| commit | ecb759429709c58d1ec5e1865f74fd5979d83e2e (patch) | |
| tree | 0f4ed1616816cf3cbb16c73f65aa063f89a1f4ca | |
| parent | dcfdbac7bb0fd364ddf542ed10b9ff2271c37096 (diff) | |
| download | emacs-ecb759429709c58d1ec5e1865f74fd5979d83e2e.tar.gz emacs-ecb759429709c58d1ec5e1865f74fd5979d83e2e.zip | |
*** empty log message ***
| -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 |