diff options
| author | Stefan Monnier | 2012-08-28 16:14:21 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2012-08-28 16:14:21 -0400 |
| commit | d5e2bcd3514bbf1a4e7022efd3b6555379d690a8 (patch) | |
| tree | 0572ff1f5bdb0a56bd8a2b3c01e5e2e27b7d4d64 | |
| parent | 9fba804b9ecca10dc33bd5508bd4fed4ebba3cc7 (diff) | |
| download | emacs-d5e2bcd3514bbf1a4e7022efd3b6555379d690a8.tar.gz emacs-d5e2bcd3514bbf1a4e7022efd3b6555379d690a8.zip | |
* cl-lib.el (buffer-string): Simplify last change.
Fixes: debbugs:12293
| -rw-r--r-- | lisp/emacs-lisp/cl-lib.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el index 7239b5bd8ca..532c81c502c 100644 --- a/lisp/emacs-lisp/cl-lib.el +++ b/lisp/emacs-lisp/cl-lib.el | |||
| @@ -635,8 +635,7 @@ If ALIST is non-nil, the new pairs are prepended to it." | |||
| 635 | (set-buffer-modified-p ,flag))) | 635 | (set-buffer-modified-p ,flag))) |
| 636 | (gv-define-simple-setter buffer-name rename-buffer t) | 636 | (gv-define-simple-setter buffer-name rename-buffer t) |
| 637 | (gv-define-setter buffer-string (store) | 637 | (gv-define-setter buffer-string (store) |
| 638 | ;; Eval `store' first since it may look at the buffer. | 638 | `(insert (prog1 ,store (erase-buffer)))) |
| 639 | (macroexp-let2 nil s store `(progn (erase-buffer) (insert ,s)))) | ||
| 640 | (gv-define-simple-setter buffer-substring cl--set-buffer-substring) | 639 | (gv-define-simple-setter buffer-substring cl--set-buffer-substring) |
| 641 | (gv-define-simple-setter current-buffer set-buffer) | 640 | (gv-define-simple-setter current-buffer set-buffer) |
| 642 | (gv-define-simple-setter current-case-table set-case-table) | 641 | (gv-define-simple-setter current-case-table set-case-table) |