Mercurial > emacs
comparison src/editfns.c @ 25608:1cdab17df2b3
(Fbufsize): Accept an extra BUFFER parameter.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 08 Sep 1999 07:56:20 +0000 |
parents | b9b4581adf36 |
children | 157f0e91232e |
comparison
equal
deleted
inserted
replaced
25607:e1f5592218c1 | 25608:1cdab17df2b3 |
---|---|
425 | 425 |
426 val = Fprogn (args); | 426 val = Fprogn (args); |
427 return unbind_to (count, val); | 427 return unbind_to (count, val); |
428 } | 428 } |
429 | 429 |
430 DEFUN ("buffer-size", Fbufsize, Sbufsize, 0, 0, 0, | 430 DEFUN ("buffer-size", Fbufsize, Sbufsize, 0, 1, 0, |
431 "Return the number of characters in the current buffer.") | 431 "Return the number of characters in the current buffer.\n\ |
432 () | 432 If BUFFER, return the number of characters in that buffer instead.") |
433 { | 433 (buffer) |
434 Lisp_Object temp; | 434 Lisp_Object buffer; |
435 XSETFASTINT (temp, Z - BEG); | 435 { |
436 return temp; | 436 if (NILP (buffer)) |
437 return make_number (Z - BEG); | |
438 else { | |
439 CHECK_BUFFER (buffer, 1); | |
440 return make_number (BUF_Z (XBUFFER (buffer)) - BUF_BEG (XBUFFER (buffer))); | |
441 } | |
437 } | 442 } |
438 | 443 |
439 DEFUN ("point-min", Fpoint_min, Spoint_min, 0, 0, 0, | 444 DEFUN ("point-min", Fpoint_min, Spoint_min, 0, 0, 0, |
440 "Return the minimum permissible value of point in the current buffer.\n\ | 445 "Return the minimum permissible value of point in the current buffer.\n\ |
441 This is 1, unless narrowing (a buffer restriction) is in effect.") | 446 This is 1, unless narrowing (a buffer restriction) is in effect.") |