[Emacs-diffs] Changes to emacs/lisp/subr.el,v

[John Paul Wallington]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     John Paul Wallington <jpw>      07/04/06 12:15:04

Index: subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.550
retrieving revision 1.551
diff -u -b -r1.550 -r1.551
--- subr.el     4 Apr 2007 15:34:43 -0000       1.550
+++ subr.el     6 Apr 2007 12:15:04 -0000       1.551
@@ -2485,11 +2485,15 @@
   "Execute the forms in BODY with TABLE as the current case table.
 The value returned is the value of the last form in BODY."
   (declare (indent 1) (debug t))
-  `(let ((old-case-table (current-case-table)))
+  (let ((old-case-table (make-symbol "table"))
+       (old-buffer (make-symbol "buffer")))
+    `(let ((,old-case-table (current-case-table))
+          (,old-buffer (current-buffer)))
      (unwind-protect
         (progn (set-case-table ,table)
                ,@body)
-       (set-case-table old-case-table))))
+        (with-current-buffer ,old-buffer
+          (set-case-table ,old-case-table))))))
 
 ;;;; Constructing completion tables.