# HG changeset patch
# User Edward M. Reingold <reingold@emr.cs.iit.edu>
# Date 811651738 0
# Node ID eafe26212f32329e1cec3218671480510c37b1af
# Parent  2779e3cf6cfa9f4cd6a5ba5db534b762a8da8ae5
Moved stuff to calendar.el, as per RSM's request.

diff -r 2779e3cf6cfa -r eafe26212f32 lisp/calendar/cal-x.el
--- a/lisp/calendar/cal-x.el	Thu Sep 21 02:47:50 1995 +0000
+++ b/lisp/calendar/cal-x.el	Thu Sep 21 02:48:58 1995 +0000
@@ -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.")