[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el,v
From: |
John Paul Wallington |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el,v |
Date: |
Fri, 06 Apr 2007 12:15:05 +0000 |
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.
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Chong Yidong, 2007/04/04
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v,
John Paul Wallington <=
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Vinicius Jose Latorre, 2007/04/09
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Richard M. Stallman, 2007/04/21
- [Emacs-diffs] Changes to emacs/lisp/subr.el,v, Richard M. Stallman, 2007/04/22