Commit 94b304d7 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

*** empty log message ***

parent 6d95ff37
;; 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))))))
(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
......@@ -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)
......@@ -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\
If there is no error, point does not move. If there is an error,\n\
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment