From d5e2bcd3514bbf1a4e7022efd3b6555379d690a8 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 28 Aug 2012 16:14:21 -0400 Subject: * cl-lib.el (buffer-string): Simplify last change. Fixes: debbugs:12293 --- lisp/emacs-lisp/cl-lib.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'lisp/emacs-lisp/cl-lib.el') diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el index 7239b5bd8c..532c81c502 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." (set-buffer-modified-p ,flag))) (gv-define-simple-setter buffer-name rename-buffer t) (gv-define-setter buffer-string (store) - ;; Eval `store' first since it may look at the buffer. - (macroexp-let2 nil s store `(progn (erase-buffer) (insert ,s)))) + `(insert (prog1 ,store (erase-buffer)))) (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) -- cgit v1.2.3