diff options
| -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 489c4b1c7fa..f4976eeb083 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -1095,8 +1095,8 @@ in BODY." | |||
| 1095 | The syntax table of the current buffer is saved, BODY is evaluated, and the | 1095 | The syntax table of the current buffer is saved, BODY is evaluated, and the |
| 1096 | saved table is restored, even in case of an abnormal exit. | 1096 | saved table is restored, even in case of an abnormal exit. |
| 1097 | Value is what BODY returns." | 1097 | Value is what BODY returns." |
| 1098 | (let ((old-table (gensym)) | 1098 | (let ((old-table (make-symbol "table")) |
| 1099 | (old-buffer (gensym))) | 1099 | (old-buffer (make-symbol "buffer"))) |
| 1100 | `(let ((,old-table (syntax-table)) | 1100 | `(let ((,old-table (syntax-table)) |
| 1101 | (,old-buffer (current-buffer))) | 1101 | (,old-buffer (current-buffer))) |
| 1102 | (unwind-protect | 1102 | (unwind-protect |