[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el
From: |
Sam Steingold |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el |
Date: |
Tue, 27 Nov 2001 10:52:54 -0500 |
Index: emacs/lisp/emacs-lisp/ewoc.el
diff -u emacs/lisp/emacs-lisp/ewoc.el:1.7 emacs/lisp/emacs-lisp/ewoc.el:1.8
--- emacs/lisp/emacs-lisp/ewoc.el:1.7 Mon Jul 16 08:22:59 2001
+++ emacs/lisp/emacs-lisp/ewoc.el Tue Nov 27 10:52:52 2001
@@ -219,14 +219,14 @@
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el,
Sam Steingold <=