diff options
| author | Richard M. Stallman | 2000-01-21 03:40:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2000-01-21 03:40:33 +0000 |
| commit | b3f070938b0a6d2797eac1772e27de16d2fa8b26 (patch) | |
| tree | 0df361725e9e2aabd4f2b24961b7cbe37178983a | |
| parent | e4295aa11fe8a7385a74a86a58ab2564165f6778 (diff) | |
| download | emacs-b3f070938b0a6d2797eac1772e27de16d2fa8b26.tar.gz emacs-b3f070938b0a6d2797eac1772e27de16d2fa8b26.zip | |
(with-syntax-table): Use make-symbol, not gensym.
| -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 |