From 94b304d75bf726a58599a76820c6f91b0b0005cd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 3 Jun 1992 02:55:55 +0000 Subject: [PATCH] *** empty log message *** --- lisp/calendar/calendar.el | 5 ++++- lisp/subr.el | 1 + src/lread.c | 8 +++++--- 3 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 3c60d624c7a..1e3fbd3194b 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -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 diff --git a/lisp/subr.el b/lisp/subr.el index 6575f2e4546..05395c26c97 100644 --- a/lisp/subr.el +++ b/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) diff --git a/src/lread.c b/src/lread.c index 9477a11c421..0c38fa0ed5a 100644 --- a/src/lread.c +++ b/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\ -- 2.11.4.GIT