/[emacs]/emacs/lisp/emacs-lisp/ewoc.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/ewoc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by pj, Mon Jul 16 12:22:59 2001 UTC revision 1.8 by sds, Tue Nov 27 15:52:52 2001 UTC
# Line 219  buffer will *not* have been changed. Line 219  buffer will *not* have been changed.
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))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26