From: Glenn Morris Date: Sat, 10 Oct 2009 20:50:39 +0000 (+0000) Subject: (calendar-split-width-threshold): New option. X-Git-Tag: emacs-pretest-23.1.90~859 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=58ae51ae02daccb32fca268155fa82b7355bd803;p=emacs.git (calendar-split-width-threshold): New option. (calendar-basic-setup): Use calendar-split-width-threshold. --- 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))