From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 8 Jan 2025 08:57:08 +0000 (+0100)
Subject: (calendar-read-date): Remove redundant buglet-binding
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=296d5b79cc1a85167baf52cfd8555287ce3bc6dc;p=emacs.git

(calendar-read-date): Remove redundant buglet-binding
---

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)))