diff options
Diffstat (limited to 'lisp/emacs-lisp/ewoc.el')
| -rw-r--r-- | lisp/emacs-lisp/ewoc.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el index 6bb26507ec2..66509589467 100644 --- a/lisp/emacs-lisp/ewoc.el +++ b/lisp/emacs-lisp/ewoc.el @@ -219,14 +219,14 @@ buffer will *not* have been changed. Return value of last form in FORMS." (let ((old-buffer (make-symbol "old-buffer")) (hnd (make-symbol "ewoc"))) - (` (let* (((, old-buffer) (current-buffer)) - ((, hnd) (, ewoc)) - (dll (ewoc--dll (, hnd))) - (,@ varlist)) - (set-buffer (ewoc--buffer (, hnd))) - (unwind-protect - (progn (,@ forms)) - (set-buffer (, old-buffer))))))) + `(let* ((,old-buffer (current-buffer)) + (,hnd ,ewoc) + (dll (ewoc--dll ,hnd)) + ,@varlist) + (set-buffer (ewoc--buffer ,hnd)) + (unwind-protect + (progn ,@forms) + (set-buffer ,old-buffer))))) (defmacro ewoc--set-buffer-bind-dll (ewoc &rest forms) `(ewoc--set-buffer-bind-dll-let* ,ewoc nil ,@forms)) |