From 296d5b79cc1a85167baf52cfd8555287ce3bc6dc Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Wed, 8 Jan 2025 09:57:08 +0100 Subject: [PATCH] (calendar-read-date): Remove redundant buglet-binding --- lisp/calendar/calendar.el | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index e0a25961f34..3abec0009d9 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -2349,14 +2349,12 @@ returned is (month year)." (month-array calendar-month-name-array) (defmon (aref month-array (1- (calendar-extract-month default-date)))) (month (cdr (assoc-string - (let ((completion-extra-properties - '(:category calendar-month))) - (completing-read-case-insensitive - (format-prompt "Month name" defmon) - (completion-table-with-metadata - (append month-array nil) - '((category . calendar-month))) - nil t nil nil defmon)) + (completing-read-case-insensitive + (format-prompt "Month name" defmon) + (completion-table-with-metadata + (append month-array nil) + '((category . calendar-month))) + nil t nil nil defmon) (calendar-make-alist month-array 1) t))) (defday (calendar-extract-day default-date)) (last (calendar-last-day-of-month month year))) -- 2.39.5