Mercurial > emacs

comparison lisp/calendar/cal-x.el @ 23552:905aab3037e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add title parameters to frames.
author Edward M. Reingold <reingold@emr.cs.iit.edu>
date Mon, 26 Oct 1998 21:37:57 +0000
parents ac47a12e523c
children 069cad4a56ef
comparison
equal deleted inserted replaced
23551:385d7c586ad2 23552:905aab3037e8
45 45
46 ;; This should not specify the font. That's up to the user. 46 ;; This should not specify the font. That's up to the user.
47 ;; Certainly it should not specify auto-lower and auto-raise 47 ;; Certainly it should not specify auto-lower and auto-raise
48 ;; since most users won't like that. 48 ;; since most users won't like that.
49 (defvar diary-frame-parameters 49 (defvar diary-frame-parameters
50 '((name . "Diary") (height . 10) (width . 80) (unsplittable . t) 50 '((name . "Diary") (title . "Diary") (height . 10) (width . 80)
51 (minibuffer . nil)) 51 (unsplittable . t) (minibuffer . nil))
52 "Parameters of the diary frame, if the diary is in its own frame. 52 "Parameters of the diary frame, if the diary is in its own frame.
53 Location and color should be set in .Xdefaults.") 53 Location and color should be set in .Xdefaults.")
54 54
55 (defvar calendar-frame-parameters 55 (defvar calendar-frame-parameters
56 '((name . "Calendar") (minibuffer . nil) (height . 10) (width . 80) 56 '((name . "Calendar") (title . "Calendar") (minibuffer . nil)
57 (unsplittable . t) (vertical-scroll-bars . nil)) 57 (height . 10) (width . 80) (unsplittable . t) (vertical-scroll-bars . nil))
58 "Parameters of the calendar frame, if the calendar is in a separate frame. 58 "Parameters of the calendar frame, if the calendar is in a separate frame.
59 Location and color should be set in .Xdefaults.") 59 Location and color should be set in .Xdefaults.")
60 60
61 (defvar calendar-and-diary-frame-parameters 61 (defvar calendar-and-diary-frame-parameters
62 '((name . "Calendar") (height . 28) (width . 80) (minibuffer . nil)) 62 '((name . "Calendar") (title . "Calendar") (height . 28) (width . 80)
63 (minibuffer . nil))
63 "Parameters of the frame that displays both the calendar and the diary. 64 "Parameters of the frame that displays both the calendar and the diary.
64 Location and color should be set in .Xdefaults.") 65 Location and color should be set in .Xdefaults.")
65 66
66 (defvar calendar-after-frame-setup-hooks nil 67 (defvar calendar-after-frame-setup-hooks nil
67 "Hooks to be run just after setting up a calendar frame. 68 "Hooks to be run just after setting up a calendar frame.