[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/ewoc.el

[Sam Steingold]

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))