changeset 675:85fd29f25c75

*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Wed, 03 Jun 1992 02:55:55 +0000
parents d5c90f190057
children a9a0a9efe0de
files lisp/calendar/calendar.el lisp/subr.el src/lread.c
diffstat 3 files changed, 10 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Tue Jun 02 19:37:40 1992 +0000
+++ b/lisp/calendar/calendar.el	Wed Jun 03 02:55:55 1992 +0000
@@ -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 @@
   "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 @@
 
 (provide 'calendar)
 
+;;; calendar.el ends here
--- a/lisp/subr.el	Tue Jun 02 19:37:40 1992 +0000
+++ b/lisp/subr.el	Wed Jun 03 02:55:55 1992 +0000
@@ -165,6 +165,7 @@
 (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)
--- a/src/lread.c	Tue Jun 02 19:37:40 1992 +0000
+++ b/src/lread.c	Wed Jun 03 02:55:55 1992 +0000
@@ -500,9 +500,11 @@
 
 #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\