mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-07 20:30:32 -08:00
Code Issues Projects Releases Wiki Activity

(Fbufsize): Accept an extra BUFFER parameter.

Browse source
This commit is contained in:
Richard M. Stallman 1999-09-08 07:56:20 +00:00
parent e52ad9c9c7
commit 95dccf7583
1 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/editfns.c
View file

@ -427,13 +427,18 @@ Executes BODY just like `progn'.")
return unbind_to (count, val);
}
DEFUN ("buffer-size", Fbufsize, Sbufsize, 0, 0, 0,
"Return the number of characters in the current buffer.")
()
DEFUN ("buffer-size", Fbufsize, Sbufsize, 0, 1, 0,
"Return the number of characters in the current buffer.\n\
If BUFFER, return the number of characters in that buffer instead.")
(buffer)
Lisp_Object buffer;
{
Lisp_Object temp;
XSETFASTINT (temp, Z - BEG);
return temp;
if (NILP (buffer))
return make_number (Z - BEG);
else {
CHECK_BUFFER (buffer, 1);
return make_number (BUF_Z (XBUFFER (buffer)) - BUF_BEG (XBUFFER (buffer)));
}
}
DEFUN ("point-min", Fpoint_min, Spoint_min, 0, 0, 0,