From 0beb8fd663663dcaa1bda4df5995d10f1ef615fb Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 27 Apr 2022 15:30:25 +0200 Subject: [PATCH] Rename holiday-lists to holiday-available-holyday-lists * lisp/calendar/holidays.el (holiday-available-holyday-lists): Give holiday-lists a better name. --- lisp/calendar/holidays.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el index ca7166c371a..89f8219edcb 100644 --- a/lisp/calendar/holidays.el +++ b/lisp/calendar/holidays.el @@ -400,7 +400,7 @@ This function is suitable for execution in an init file." (displayed-year (calendar-extract-year date))) (calendar-list-holidays)))) -(defun holiday-lists () +(defun holiday-available-holyday-lists () "Return a list of all holiday lists. This is used by `list-holidays', and you can customize the return value by using `add-function'." @@ -453,9 +453,10 @@ of a holiday list. The optional LABEL is used to label the buffer created. -The list of holiday lists is computed by the `holiday-lists', and -you can alter the results by redefining that function, or use -`add-function' to all values." +The list of holiday lists is computed by the +`holiday-available-holyday-lists' and you can alter the results +by redefining that function, or use `add-function' to all +values." (interactive (let* ((start-year (calendar-read-sexp "Starting year of holidays (>0)" @@ -467,7 +468,7 @@ you can alter the results by redefining that function, or use start-year start-year)) (completion-ignore-case t) - (lists (holiday-lists)) + (lists (holiday-available-holyday-lists)) (choice (capitalize (completing-read "List (TAB for choices): " lists nil t))) (which (if (string-equal choice "Ask") -- 2.39.2