From: Edward M. Reingold <reingold@emr.cs.iit.edu>
Date: Thu, 21 Sep 1995 02:48:58 +0000 (+0000)
Subject: Moved stuff to calendar.el, as per RSM's request.
X-Git-Tag: emacs-19.34~2814
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9275d77924fcf97be665386aa9d5f2bdf39d1378;p=emacs.git

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

diff --git a/lisp/calendar/cal-x.el b/lisp/calendar/cal-x.el
index d3e25e83063..b7fd8fb4c9f 100644
--- a/lisp/calendar/cal-x.el
+++ b/lisp/calendar/cal-x.el
@@ -1,6 +1,6 @@
 ;;; 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.")