comparison lisp/calendar/cal-menu.el @ 13876:16decb4ae75f

Put date on top of other-calendars menu.
author Edward M. Reingold <reingold@emr.cs.iit.edu>
date Wed, 27 Dec 1995 17:33:27 +0000
parents 8a3ceaf9bfee
children 83f275dcd93a
comparison
equal deleted inserted replaced
13875:96d81534d210 13876:16decb4ae75f
380 (let ((date (calendar-event-to-date)) 380 (let ((date (calendar-event-to-date))
381 (selection 381 (selection
382 (x-popup-menu 382 (x-popup-menu
383 event 383 event
384 (list 384 (list
385 "Date Menu" 385 (concat (calendar-date-string date) " (Gregorian)")
386 (append 386 (append
387 (list 387 (list
388 (concat (calendar-date-string date) " (Gregorian)") 388 (concat (calendar-date-string date) " (Gregorian)")
389 (list (calendar-day-of-year-string date)) 389 (list (calendar-day-of-year-string date))
390 (list (format "ISO date: %s" (calendar-iso-date-string date))) 390 (list (format "ISO date: %s" (calendar-iso-date-string date)))