procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/cl-lib.el (buffer-string): Fix setter macro.

Browse source 
Fixes: debbugs:12293
This commit is contained in:
Stefan Monnier 2012-08-28 15:35:35 -04:00
parent a3f90bea8e
commit 9fba804b9e
2 changed files with 22 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/cl-lib.el
View file

@ -635,7 +635,8 @@ If ALIST is non-nil, the new pairs are prepended to it."
(set-buffer-modified-p ,flag)))
(gv-define-simple-setter buffer-name rename-buffer t)
(gv-define-setter buffer-string (store)
`(progn (erase-buffer) (insert ,store)))
;; Eval `store' first since it may look at the buffer.
(macroexp-let2 nil s store `(progn (erase-buffer) (insert ,s))))
(gv-define-simple-setter buffer-substring cl--set-buffer-substring)
(gv-define-simple-setter current-buffer set-buffer)
(gv-define-simple-setter current-case-table set-case-table)