-;; Calendar functions.
+;;; calendar.el --- Calendar functions.
+
;; Copyright (C) 1988, 1989, 1990, 1991 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
"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
(provide 'calendar)
+;;; calendar.el ends here
(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)
#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\