*** empty log message ***

lisp/calendar/calendar.el

-;; Calendar functions.
+;;; calendar.el --- Calendar functions.
+
 ;; Copyright (C) 1988, 1989, 1990, 1991 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -737,6 +738,7 @@ sum EXPRESSION."
   "Extract the year part of DATE which has the form (month day year)."
   (` (car (cdr (cdr (, date))))))
 
+;;;###autoload
 (defun calendar (&optional arg)
   "Display a three-month calendar in another window.
 The three months appear side by side, with the current month in the middle
@@ -2567,3 +2569,4 @@ cursor."
 
 (provide 'calendar)
 
+;;; calendar.el ends here

lisp/subr.el

@@ -165,6 +165,7 @@ Accept any number of arguments, but ignore them."
 (fset 'send-region 'process-send-region)
 (fset 'show-buffer 'set-window-buffer)
 (fset 'buffer-flush-undo 'buffer-disable-undo)
+(fset 'eval-current-buffer 'eval-buffer)
 
 ; alternate names
 (fset 'string= 'string-equal)

src/lread.c

@@ -500,9 +500,11 @@ readevalloop (readcharfun, stream, evalfun, printflag)
 
 #ifndef standalone
 
-DEFUN ("eval-buffer", Feval_buffer, Seval_buffer, 0, 2, "bBuffer: ",
-  "Execute BUFFER as Lisp code.  If BUFFER is nil, use the current buffer.\n\
-Programs can pass argument PRINTFLAG which controls printing of output:\n\
+DEFUN ("eval-buffer", Feval_buffer, Seval_buffer, 0, 1, "",
+  "Execute the current buffer as Lisp code.\n\
+Programs can pass two arguments, BUFFER and PRINTFLAG.\n\
+BUFFER is the buffer to evaluate (nil means use current buffer).\n\
+PRINTFLAG controls printing of output:\n\
 nil means discard it; anything else is stream for print.\n\
 \n\
 If there is no error, point does not move.  If there is an error,\n\