diff options
| author | Stefan Monnier | 2003-02-20 20:07:41 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-02-20 20:07:41 +0000 |
| commit | 7ec51784bb5bf081a967823a1fcc5c5a4fba3a9a (patch) | |
| tree | d877c15ca20370f8f64d6be6b2b5a4c001d001cd | |
| parent | e9b9ec8b07db679119c2432480635851c7ca879c (diff) | |
| download | emacs-7ec51784bb5bf081a967823a1fcc5c5a4fba3a9a.tar.gz emacs-7ec51784bb5bf081a967823a1fcc5c5a4fba3a9a.zip | |
(with-syntax-table): Don't copy the table any more.
| -rw-r--r-- | lisp/subr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 01d317238de..39240b601ec 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -1709,7 +1709,7 @@ Uses the `derived-mode-parent' property of the symbol to trace backwards." | |||
| 1709 | parent)) | 1709 | parent)) |
| 1710 | 1710 | ||
| 1711 | (defmacro with-syntax-table (table &rest body) | 1711 | (defmacro with-syntax-table (table &rest body) |
| 1712 | "Evaluate BODY with syntax table of current buffer set to a copy of TABLE. | 1712 | "Evaluate BODY with syntax table of current buffer set to TABLE. |
| 1713 | The syntax table of the current buffer is saved, BODY is evaluated, and the | 1713 | The syntax table of the current buffer is saved, BODY is evaluated, and the |
| 1714 | saved table is restored, even in case of an abnormal exit. | 1714 | saved table is restored, even in case of an abnormal exit. |
| 1715 | Value is what BODY returns." | 1715 | Value is what BODY returns." |
| @@ -1719,7 +1719,7 @@ Value is what BODY returns." | |||
| 1719 | (,old-buffer (current-buffer))) | 1719 | (,old-buffer (current-buffer))) |
| 1720 | (unwind-protect | 1720 | (unwind-protect |
| 1721 | (progn | 1721 | (progn |
| 1722 | (set-syntax-table (copy-syntax-table ,table)) | 1722 | (set-syntax-table ,table) |
| 1723 | ,@body) | 1723 | ,@body) |
| 1724 | (save-current-buffer | 1724 | (save-current-buffer |
| 1725 | (set-buffer ,old-buffer) | 1725 | (set-buffer ,old-buffer) |