From: BT Templeton Date: Fri, 23 Aug 2013 06:32:49 +0000 (-0400) Subject: * src/eval.c (Fbind_symbol): New function. X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/19411656ce2ada9b559362b71a7bff56a1095a96 * src/eval.c (Fbind_symbol): New function. --- diff --git a/src/eval.c b/src/eval.c index d1397e0ab2..b34e692f85 100644 --- a/src/eval.c +++ b/src/eval.c @@ -2265,6 +2265,18 @@ DEFUN ("values", Fvalues, Svalues, 0, MANY, 0, return scm_c_values (args, nargs); } +DEFUN ("bind-symbol", Fbind_symbol, Sbind_symbol, 3, 3, 0, + doc: /* Bind symbol. */) + (Lisp_Object symbol, Lisp_Object value, Lisp_Object thunk) +{ + Lisp_Object val; + dynwind_begin (); + specbind (symbol, value); + val = call0 (thunk); + dynwind_end (); + return val; +} + DEFUN ("apply", Fapply, Sapply, 1, MANY, 0, doc: /* Call FUNCTION with our remaining args, using our last arg as list of args. Then return the value FUNCTION returns.