diff options
Diffstat (limited to 'lisp/calendar/calendar.el')
| -rw-r--r-- | lisp/calendar/calendar.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 6eca77808c2..b2345cbd089 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1,4 +1,11 @@ ;;; calendar.el --- Calendar functions. + +;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> +;; Last-Modified: 30 Jun 1992 +;; Keyword: calendar + +(defconst calendar-version "Version 4.02, released June 14, 1992") + ;;; Copyright (C) 1988, 1989, 1990, 1991 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -18,6 +25,8 @@ ;; file named COPYING. Among other things, the copyright notice ;; and this notice must be preserved on all copies. +;;; Commentary: + ;; This collection of functions implements a calendar window. It generates ;; generates a calendar for the current month, together with the previous and ;; coming months, or for any other three-month period. The calendar can be @@ -66,7 +75,7 @@ ;; Software--Practice and Experience, Volume 20, Number 9 (September, 1990), ;; pages 899-928. -(defconst calendar-version "Version 4.02, released June 14, 1992") +;;; Code: (defvar view-diary-entries-initially nil "*If T, the diary entries for the current date will be displayed on entry. @@ -996,7 +1005,7 @@ holidays are found, nil if not." (if today-visible today (list displayed-month 1 displayed-year))) (set-buffer-modified-p nil) (or (one-window-p t) - (/= (screen-width) (window-width)) + (/= (frame-width) (window-width)) (shrink-window (- (window-height) 9))) (sit-for 0) (and mark-holidays-in-calendar |