diff options
| author | Richard M. Stallman <[email protected]> | 1994-05-08 06:10:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-05-08 06:10:52 +0000 |
| commit | e2bb905e9e22f25ef85002735e9d301438120242 (patch) | |
| tree | 2116a3e7d256d4d5376f796c0e72ffa06ac35472 /lisp/calendar/cal-menu.el | |
| parent | 10c3836a5d17d710361120270b7e23ed96a1416a (diff) | |
(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 e0492ecdf6..3313992d0b 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." |