From b99bec6273a59204750820acd69f392a535e1722 Mon Sep 17 00:00:00 2001 From: Thuna Date: Thu, 16 Feb 2023 06:03:00 +0100 Subject: [PATCH 1/2] Define calendar.el buffer names with defcustom instead of defconst * lisp/calendar/calendar.el (calendar-buffer holiday-buffer diary-fancy-buffer calendar-other-calendars-buffer lunar-phases-buffer solar-sunrises-buffer calendar-hebrew-yahrzeit-buffer): Define the variables using `defcustom' instead of `defconst'. --- lisp/calendar/calendar.el | 49 ++++++++++++++++++++++++++++----------- 1 file changed, 35 insertions(+), 14 deletions(-) diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index faa88e7f52f..2521a9c73c1 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1079,26 +1079,47 @@ calendar-time-zone-style (defconst calendar-first-date-row 3 "First row in the calendar with actual dates.") -(defconst calendar-buffer "*Calendar*" - "Name of the buffer used for the calendar.") +(defcustom calendar-buffer "*Calendar*" + "Name of the buffer used for the calendar." + :type 'string + :version "30.0.50" + :group 'calendar) -(defconst holiday-buffer "*Holidays*" - "Name of the buffer used for the displaying the holidays.") +(defcustom holiday-buffer "*Holidays*" + "Name of the buffer used for the displaying the holidays." + :type 'string + :version "30.0.50" + :group 'calendar) -(defconst diary-fancy-buffer "*Fancy Diary Entries*" - "Name of the buffer used for the optional fancy display of the diary.") +(defcustom diary-fancy-buffer "*Fancy Diary Entries*" + "Name of the buffer used for the optional fancy display of the diary." + :type 'string + :version "30.0.50" + :group 'calendar) -(defconst calendar-other-calendars-buffer "*Other Calendars*" - "Name of the buffer used for the display of date on other calendars.") +(defcustom calendar-other-calendars-buffer "*Other Calendars*" + "Name of the buffer used for the display of date on other calendars." + :type 'string + :version "30.0.50" + :group 'calendar) -(defconst lunar-phases-buffer "*Phases of Moon*" - "Name of the buffer used for the lunar phases.") +(defcustom lunar-phases-buffer "*Phases of Moon*" + "Name of the buffer used for the lunar phases." + :type 'string + :version "30.0.50" + :group 'calendar) -(defconst solar-sunrises-buffer "*Sunrise/Sunset Times*" - "Name of buffer used for sunrise/sunset times.") +(defcustom solar-sunrises-buffer "*Sunrise/Sunset Times*" + "Name of buffer used for sunrise/sunset times." + :type 'string + :version "30.0.50" + :group 'calendar) -(defconst calendar-hebrew-yahrzeit-buffer "*Yahrzeits*" - "Name of the buffer used by `calendar-hebrew-list-yahrzeits'.") +(defcustom calendar-hebrew-yahrzeit-buffer "*Yahrzeits*" + "Name of the buffer used by `calendar-hebrew-list-yahrzeits'." + :type 'string + :version "30.0.50" + :group 'calendar) (defmacro calendar-increment-month (mon yr n &optional nmonths) "Increment the variables MON and YR by N months. -- 2.38.2