(Fbufsize): Accept an extra BUFFER parameter.

diff --git a/src/editfns.c b/src/editfns.c
index a12954a6ed72a157fe2aac49dc406106f0757082..ab96d6f70d076ece8a0adcef581f91c6d3625584 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -427,13 +427,18 @@ Executes BODY just like `progn'.")
   return unbind_to (count, val);
 }
 \f
-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,