Mercurial > emacs

changeset 7402:494ca99e9517

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-mouse-print-dates): Add missing level of list for Islamic, Revolutionary and Mayan calendars. Delete duplicate entry for ISO calendar.
author Richard M. Stallman <rms@gnu.org>
date Sun, 08 May 1994 06:10:52 +0000
parents afe506bf7264
children 066fec1fce40
files lisp/calendar/cal-menu.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-menu.el	Sun May 08 01:38:58 1994 +0000
+++ b/lisp/calendar/cal-menu.el	Sun May 08 06:10:52 1994 +0000
@@ -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."