Mercurial > emacs
comparison lisp/calendar/cal-menu.el @ 7402:494ca99e9517
(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 | 3e1323443b1a |
| children | 066fec1fce40 |
comparison
equal
deleted
inserted
replaced
| 7401:afe506bf7264 | 7402:494ca99e9517 |
|---|---|
| 238 (list | 238 (list |
| 239 "Date Menu" | 239 "Date Menu" |
| 240 (append | 240 (append |
| 241 (list | 241 (list |
| 242 (concat (calendar-date-string date) " (Gregorian)") | 242 (concat (calendar-date-string date) " (Gregorian)") |
| 243 (list (calendar-iso-date-string date)) | |
| 244 (list (format "ISO date: %s" (calendar-iso-date-string date))) | 243 (list (format "ISO date: %s" (calendar-iso-date-string date))) |
| 245 (list (format "Julian date: %s" (calendar-julian-date-string date))) | 244 (list (format "Julian date: %s" (calendar-julian-date-string date))) |
| 246 (list (format "Astronomical (Julian) date (before noon): %s" | 245 (list (format "Astronomical (Julian) date (before noon): %s" |
| 247 (calendar-astro-date-string date))) | 246 (calendar-astro-date-string date))) |
| 248 (list (format "Hebrew date (before sunset): %s" | 247 (list (format "Hebrew date (before sunset): %s" |
| 249 (calendar-hebrew-date-string date)))) | 248 (calendar-hebrew-date-string date)))) |
| 250 (let ((i (calendar-islamic-date-string date))) | 249 (let ((i (calendar-islamic-date-string date))) |
| 251 (if (not (string-equal i "")) | 250 (if (not (string-equal i "")) |
| 252 (list (format "Islamic date (before sunset): %s" i)))) | 251 (list (list (format "Islamic date (before sunset): %s" i))))) |
| 253 (let ((f (calendar-french-date-string date))) | 252 (let ((f (calendar-french-date-string date))) |
| 254 (if (not (string-equal f "")) | 253 (if (not (string-equal f "")) |
| 255 (list (format "French Revolutionary date: %s" f)))) | 254 (list (list (format "French Revolutionary date: %s" f))))) |
| 256 (list | 255 (list |
| 257 (format "Mayan date: %s" (calendar-mayan-date-string date)))))))) | 256 (list |
| 257 (format "Mayan date: %s" (calendar-mayan-date-string date))))))))) | |
| 258 | 258 |
| 259 (defun calendar-mouse-date-menu (event) | 259 (defun calendar-mouse-date-menu (event) |
| 260 "Pop up menu for selected date." | 260 "Pop up menu for selected date." |
| 261 (interactive "e") | 261 (interactive "e") |
| 262 (let ((selection | 262 (let ((selection |