(calendar-split-width-threshold): New option.

(calendar-basic-setup): Use calendar-split-width-threshold.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index adfbf9cad164be9b9dae80d4bbe40eec80cc5d6c..ea529794c74f825b9acc2406e595867d0c167039 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index ddccc529568b31b31ab7e3292f4d61266ece7e34..75fe5abc3ca6b0b5821cee537e73a2dae6b2cd53 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -163,6 +163,16 @@ three options overrides the value of `calendar-view-diary-initially-flag'."
   :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 @@ display the generated calendar."
            ;; 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))