Move calendar-month metadata to calendar-read-date (bug#68214)

* lisp/minibuffer.el (completion-category-defaults): Move the
'calendar-month' default value to the metadata in calendar-read-date.

* lisp/calendar/calendar.el (calendar-read-date): Add
display-sort-function moved from completion-category-defaults.
This commit is contained in:
Juri Linkov 2025-01-07 20:22:14 +02:00
parent e41a7d8127
commit d5c3173366
2 changed files with 3 additions and 3 deletions

View file

@ -2354,7 +2354,8 @@ returned is (month year)."
(completion-table-with-metadata
(completion-table-case-fold
(append month-array nil))
`((category . calendar-month)))
`((category . calendar-month)
(display-sort-function . identity)))
nil t nil nil defmon)
(calendar-make-alist month-array 1) t)))
(defday (calendar-extract-day default-date))

View file

@ -1197,8 +1197,7 @@ styles for specific categories, such as files, buffers, etc."
(project-file (styles . (substring)))
(xref-location (styles . (substring)))
(info-menu (styles . (basic substring)))
(symbol-help (styles . (basic shorthand substring)))
(calendar-month (display-sort-function . identity)))
(symbol-help (styles . (basic shorthand substring))))
"Default settings for specific completion categories.
Each entry has the shape (CATEGORY . ALIST) where ALIST is