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

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index e0a25961f34aef5bb7dd2af1dbe04be18660e68f..3abec0009d94de6f19c7293e7808e32ed7a18b19 100644 (file)
--- 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)))