From 9275d77924fcf97be665386aa9d5f2bdf39d1378 Mon Sep 17 00:00:00 2001 From: "Edward M. Reingold" Date: Thu, 21 Sep 1995 02:48:58 +0000 Subject: [PATCH] Moved stuff to calendar.el, as per RSM's request. --- lisp/calendar/cal-x.el | 21 +-------------------- 1 file changed, 1 insertion(+), 20 deletions(-) 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 ;; Edward M. Reingold @@ -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.") -- 2.39.2