Mercurial > hg > xemacs-beta

comparison src/lread.c @ 149:538048ae2ab8 r20-3b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b1
author cvs
date Mon, 13 Aug 2007 09:36:16 +0200
parents 1856695b1fa9
children 43dd3413c7c7
comparison
equal deleted inserted replaced
148:f659db2a1f73 149:538048ae2ab8
1400 1400
1401 return unbind_to (speccount, Qnil); 1401 return unbind_to (speccount, Qnil);
1402 } 1402 }
1403 1403
1404 #if 0 1404 #if 0
1405 xxDEFUN ("eval-current-buffer", Feval_current_buffer, Seval_current_buffer, 0, 1, "" /* 1405 xxDEFUN ("eval-current-buffer", Feval_current_buffer, 0, 1, "", /*
1406 Execute the current buffer as Lisp code. 1406 Execute the current buffer as Lisp code.
1407 Programs can pass argument PRINTFLAG which controls printing of output: 1407 Programs can pass argument PRINTFLAG which controls printing of output:
1408 nil means discard it; anything else is stream for print. 1408 nil means discard it; anything else is stream for print.
1409 1409
1410 If there is no error, point does not move. If there is an error, 1410 If there is no error, point does not move. If there is an error,
1411 point remains at the end of the last character read from the buffer. 1411 point remains at the end of the last character read from the buffer.
1412 */ ) 1412 */
1413 (printflag) 1413 (printflag))
1414 Lisp_Object printflag;
1415 { 1414 {
1416 code omitted; 1415 code omitted;
1417 } 1416 }
1418 #endif 1417 #endif /* 0 */
1419 1418
1420 DEFUN ("eval-region", Feval_region, 2, 3, "r", /* 1419 DEFUN ("eval-region", Feval_region, 2, 3, "r", /*
1421 Execute the region as Lisp code. 1420 Execute the region as Lisp code.
1422 When called from programs, expects two arguments, 1421 When called from programs, expects two arguments,
1423 giving starting and ending indices in the current buffer 1422 giving starting and ending indices in the current buffer