Read date: Force calendar into current frame

lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-08-01  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org.el (org-read-date): Make sure the calendar is in the current
+	frame.
+
 	* org-table.el (org-table-error-on-row-ref-crossing-hline):
 	Variable made obsolete.
 	(org-table-relative-ref-may-cross-hline): New option.

lisp/org.el

@@ -12202,6 +12202,7 @@ user."
 		    (setcar (nthcdr 1 defdecode) 59)
 		    (setq def (apply 'encode-time defdecode)
 			  defdecode (decode-time def)))))
+	 (calendar-frame-setup nil)
 	 (calendar-move-hook nil)
 	 (calendar-view-diary-initially-flag nil)
 	 (view-diary-entries-initially nil)