219 |
Return value of last form in FORMS." |
Return value of last form in FORMS." |
220 |
(let ((old-buffer (make-symbol "old-buffer")) |
(let ((old-buffer (make-symbol "old-buffer")) |
221 |
(hnd (make-symbol "ewoc"))) |
(hnd (make-symbol "ewoc"))) |
222 |
(` (let* (((, old-buffer) (current-buffer)) |
`(let* ((,old-buffer (current-buffer)) |
223 |
((, hnd) (, ewoc)) |
(,hnd ,ewoc) |
224 |
(dll (ewoc--dll (, hnd))) |
(dll (ewoc--dll ,hnd)) |
225 |
(,@ varlist)) |
,@varlist) |
226 |
(set-buffer (ewoc--buffer (, hnd))) |
(set-buffer (ewoc--buffer ,hnd)) |
227 |
(unwind-protect |
(unwind-protect |
228 |
(progn (,@ forms)) |
(progn ,@forms) |
229 |
(set-buffer (, old-buffer))))))) |
(set-buffer ,old-buffer))))) |
230 |
|
|
231 |
(defmacro ewoc--set-buffer-bind-dll (ewoc &rest forms) |
(defmacro ewoc--set-buffer-bind-dll (ewoc &rest forms) |
232 |
`(ewoc--set-buffer-bind-dll-let* ,ewoc nil ,@forms)) |
`(ewoc--set-buffer-bind-dll-let* ,ewoc nil ,@forms)) |