# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1255207839 0
# Node ID 4886a9e0be0171acce2796c38e4eac4e3d52c021
# Parent  2469bf0e1e6355e1306c56d21899ae9c8aa741d8
(calendar-split-width-threshold): New option.
(calendar-basic-setup): Use calendar-split-width-threshold.

diff -r 2469bf0e1e63 -r 4886a9e0be01 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Oct 10 19:15:50 2009 +0000
+++ b/lisp/ChangeLog	Sat Oct 10 20:50:39 2009 +0000
@@ -1,3 +1,8 @@
+2009-10-10  Glenn Morris  <rgm@gnu.org>
+
+	* calendar/calendar.el (calendar-split-width-threshold): New option.
+	(calendar-basic-setup): Use calendar-split-width-threshold.
+
 2009-10-10  Sascha Wilde <wilde@sha-bang.de>
 
 	* cedet/ede/proj-shared.el (ede-proj-makefile-target-name): Use
diff -r 2469bf0e1e63 -r 4886a9e0be01 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Sat Oct 10 19:15:50 2009 +0000
+++ b/lisp/calendar/calendar.el	Sat Oct 10 20:50:39 2009 +0000
@@ -163,6 +163,16 @@
   :version "22.1"
   :group 'calendar)
 
+;; See discussion in bug#1806.
+(defcustom calendar-split-width-threshold nil
+  "Value to use for `split-width-threshold' when creating a calendar.
+This only affects frames wider than the default value of
+`split-width-threshold'."
+  :type '(choice (const nil)
+                 (integer))
+  :version "23.2"
+  :group 'calendar)
+
 (defcustom calendar-week-start-day 0
   "The day of the week on which a week in the calendar begins.
 0 means Sunday (default), 1 means Monday, and so on.
@@ -1287,6 +1297,7 @@
            ;; Not really needed now, but means we use exactly the same
            ;; behavior as before in the non-wide case (see below).
            (split-height-threshold 1000)
+           (split-width-threshold calendar-split-width-threshold)
            (date (if arg (calendar-read-date t)
                    (calendar-current-date)))
            (month (calendar-extract-month date))