diff options
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/holidays.el | 11 |
1 files 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") |