diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-08 06:10:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-08 06:10:52 +0000 |
| commit | 7b2cfc12760d7e762f6e5b8d4a1274df9c0fd829 (patch) | |
| tree | 09b2de9a1b6e6352fbfa5cf808713a48c861eccf /lisp/calendar/cal-menu.el | |
| parent | 6bb366903e1222f1d98ceed359ce4acf4e7a73f2 (diff) | |
| download | emacs-7b2cfc12760d7e762f6e5b8d4a1274df9c0fd829.tar.gz | |
(calendar-mouse-print-dates): Add missing level of list
for Islamic, Revolutionary and Mayan calendars.
Delete duplicate entry for ISO calendar.
Diffstat (limited to 'lisp/calendar/cal-menu.el')
| -rw-r--r-- | lisp/calendar/cal-menu.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index e0492ecdf66..3313992d0b3 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -240,7 +240,6 @@ (append (list (concat (calendar-date-string date) " (Gregorian)") - (list (calendar-iso-date-string date)) (list (format "ISO date: %s" (calendar-iso-date-string date))) (list (format "Julian date: %s" (calendar-julian-date-string date))) (list (format "Astronomical (Julian) date (before noon): %s" @@ -249,12 +248,13 @@ (calendar-hebrew-date-string date)))) (let ((i (calendar-islamic-date-string date))) (if (not (string-equal i "")) - (list (format "Islamic date (before sunset): %s" i)))) + (list (list (format "Islamic date (before sunset): %s" i))))) (let ((f (calendar-french-date-string date))) (if (not (string-equal f "")) - (list (format "French Revolutionary date: %s" f)))) + (list (list (format "French Revolutionary date: %s" f))))) (list - (format "Mayan date: %s" (calendar-mayan-date-string date)))))))) + (list + (format "Mayan date: %s" (calendar-mayan-date-string date))))))))) (defun calendar-mouse-date-menu (event) "Pop up menu for selected date." |