Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 21:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

* subr.el (with-case-table): New macro.

Browse source
This commit is contained in:
Chong Yidong 2007-04-04 15:34:43 +00:00
parent b434156627
commit 6a978be38d
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/subr.el
View file

@ -2480,6 +2480,16 @@ in BODY."
(let ((combine-after-change-calls t))
. ,body)
(combine-after-change-execute)))
(defmacro with-case-table (table &rest body)
"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)))
(unwind-protect
(progn (set-case-table ,table)
,@body)
(set-case-table old-case-table))))
;;;; Constructing completion tables.