Commit 9275d779 authored by Edward M. Reingold's avatar Edward M. Reingold
Browse files

Moved stuff to calendar.el, as per RSM's request.

parent 75af4a4a
;;; cal-x.el --- calendar windows in dedicated frames in x-windows
;; Copyright (C) 1994 Free Software Foundation, Inc.
;; Copyright (C) 1994, 1995 Free Software Foundation, Inc.
;; Author: Michael Kifer <kifer@cs.sunysb.edu>
;; Edward M. Reingold <reingold@cs.uiuc.edu>
......@@ -36,25 +36,6 @@
;;; Code:
(require 'calendar)
(if (not (fboundp 'calendar-basic-setup))
(fset 'calendar-basic-setup (symbol-function 'calendar)))
;;;###autoload
(defvar calendar-setup 'one-frame
"The frame set up of the calendar.
The choices are `one-frame' (calendar and diary together in one separate,
dediciated frame) or `two-frames' (calendar and diary in separate, dedicated
frames); with any other value the current frame is used.")
(defun calendar (&optional arg)
"Choose between the one frame, two frame, or basic calendar displays.
The original function `calendar' has been renamed `calendar-basic-setup'."
(interactive "P")
(cond ((equal calendar-setup 'one-frame) (calendar-one-frame-setup arg))
((equal calendar-setup 'two-frames) (calendar-two-frame-setup arg))
(t (calendar-basic-setup arg))))
(defvar calendar-frame nil "Frame in which to display the calendar.")
(defvar diary-frame nil "Frame in which to display the diary.")
......
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