Mercurial > emacs
changeset 105539:4886a9e0be01
(calendar-split-width-threshold): New option.
(calendar-basic-setup): Use calendar-split-width-threshold.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 10 Oct 2009 20:50:39 +0000 |
| parents | 2469bf0e1e63 |
| children | fbc5ad35e97d |
| files | lisp/ChangeLog lisp/calendar/calendar.el |
| diffstat | 2 files changed, 16 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))