Fix key bindings for appt-add and appt-delete

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index a6ec6650df552eb6a3a944c6952c13d932d1f0fd..bc4aca2dbec29baf235080e24ad24a0617b0a67d 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1917,8 +1917,8 @@ the inserted text.  Value is always t."
   (define-key calendar-mode-map "gmnh" 'calendar-next-haab-date)
   (define-key calendar-mode-map "gmpt" 'calendar-previous-tzolkin-date)
   (define-key calendar-mode-map "gmnt" 'calendar-next-tzolkin-date)
-  (define-key calendar-mode-map "A"   'appt-add)
-  (define-key calendar-mode-map "D"   'appt-delete)
+  (define-key calendar-mode-map "Aa"   'appt-add)
+  (define-key calendar-mode-map "Ad"   'appt-delete)
   (define-key calendar-mode-map "S"   'calendar-sunrise-sunset)
   (define-key calendar-mode-map "M"   'calendar-phases-of-moon)
   (define-key calendar-mode-map " "   'scroll-other-window)