Add title parameters to frames.

1 files changed, 6 insertions, 5 deletions

diff --git a/lisp/calendar/cal-x.el b/lisp/calendar/cal-x.el
index 7921a270be4..a52933d67f0 100644
--- a/lisp/calendar/cal-x.el
+++ b/lisp/calendar/cal-x.el
@@ -47,19 +47,20 @@
 ;; Certainly it should not specify auto-lower and auto-raise
 ;; since most users won't like that.
 (defvar diary-frame-parameters
-  '((name . "Diary") (height . 10) (width . 80) (unsplittable . t)
-    (minibuffer . nil))
+  '((name . "Diary") (title . "Diary") (height . 10) (width . 80)
+    (unsplittable . t) (minibuffer . nil))
   "Parameters of the diary frame, if the diary is in its own frame.
 Location and color should be set in .Xdefaults.")
                                  
 (defvar calendar-frame-parameters
-  '((name . "Calendar") (minibuffer . nil) (height . 10) (width . 80)
-    (unsplittable . t) (vertical-scroll-bars . nil))
+  '((name . "Calendar") (title . "Calendar") (minibuffer . nil)
+    (height . 10) (width . 80) (unsplittable . t) (vertical-scroll-bars . nil))
   "Parameters of the calendar frame, if the calendar is in a separate frame.
 Location and color should be set in .Xdefaults.")
 
 (defvar calendar-and-diary-frame-parameters
-  '((name . "Calendar") (height . 28) (width . 80) (minibuffer . nil))
+  '((name . "Calendar") (title . "Calendar") (height . 28) (width . 80)
+    (minibuffer . nil))
   "Parameters of the frame that displays both the calendar and the diary.
 Location and color should be set in .Xdefaults.")