Mercurial > emacs
comparison lisp/calendar/cal-menu.el @ 22414:80fbcba480dc
Minor fix to previous change.
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Tue, 09 Jun 1998 22:27:59 +0000 |
| parents | be2f536a1358 |
| children | 594ed104120c |
comparison
equal
deleted
inserted
replaced
| 22413:be2f536a1358 | 22414:80fbcba480dc |
|---|---|
| 300 "Pop up menu of diary entries for mouse selected date." | 300 "Pop up menu of diary entries for mouse selected date." |
| 301 (interactive) | 301 (interactive) |
| 302 (let* ((date (calendar-event-to-date)) | 302 (let* ((date (calendar-event-to-date)) |
| 303 (l (mapcar '(lambda (x) (list (car (cdr x)))) | 303 (l (mapcar '(lambda (x) (list (car (cdr x)))) |
| 304 (let ((diary-list-include-blanks nil) | 304 (let ((diary-list-include-blanks nil) |
| 305 (diary-display-hook nil)) | 305 (diary-display-hook 'ignore)) |
| 306 (list-diary-entries date 1)))) | 306 (list-diary-entries date 1)))) |
| 307 (selection | 307 (selection |
| 308 (x-popup-menu | 308 (x-popup-menu |
| 309 event | 309 event |
| 310 (list | 310 (list |
| 318 "Pop up menu of diary entries from alternative file on mouse-selected date." | 318 "Pop up menu of diary entries from alternative file on mouse-selected date." |
| 319 (interactive) | 319 (interactive) |
| 320 (let* ((date (calendar-event-to-date)) | 320 (let* ((date (calendar-event-to-date)) |
| 321 (l (mapcar '(lambda (x) (list (car (cdr x)))) | 321 (l (mapcar '(lambda (x) (list (car (cdr x)))) |
| 322 (let ((diary-list-include-blanks nil) | 322 (let ((diary-list-include-blanks nil) |
| 323 (diary-display-hook nil) | 323 (diary-display-hook 'ignore) |
| 324 (diary-file (read-file-name | 324 (diary-file (read-file-name |
| 325 "Enter diary file name: " | 325 "Enter diary file name: " |
| 326 default-directory nil t))) | 326 default-directory nil t))) |
| 327 (list-diary-entries date 1)))) | 327 (list-diary-entries date 1)))) |
| 328 (selection | 328 (selection |