From 58ae51ae02daccb32fca268155fa82b7355bd803 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 10 Oct 2009 20:50:39 +0000 Subject: [PATCH] (calendar-split-width-threshold): New option. (calendar-basic-setup): Use calendar-split-width-threshold. --- lisp/ChangeLog | 5 +++++ lisp/calendar/calendar.el | 11 +++++++++++ 2 files changed, 16 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index adfbf9cad16..ea529794c74 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-10-10 Glenn Morris + + * calendar/calendar.el (calendar-split-width-threshold): New option. + (calendar-basic-setup): Use calendar-split-width-threshold. + 2009-10-10 Sascha Wilde * cedet/ede/proj-shared.el (ede-proj-makefile-target-name): Use diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index ddccc529568..75fe5abc3ca 100644 --- 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)) -- 2.39.5