*** empty log message ***
authorRichard M. Stallman <rms@gnu.org>
Wed, 3 Jun 1992 02:55:55 +0000 (02:55 +0000)
committerRichard M. Stallman <rms@gnu.org>
Wed, 3 Jun 1992 02:55:55 +0000 (02:55 +0000)
lisp/calendar/calendar.el
lisp/subr.el
src/lread.c

index 3c60d62..1e3fbd3 100644 (file)
@@ -1,4 +1,5 @@
-;; 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
index 6575f2e..05395c2 100644 (file)
@@ -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)
index 9477a11..0c38fa0 100644 (file)
@@ -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\