mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(calendar-mouse-view-other-diary-entries): Fix name

Browse source 
of file in header of menu.
This commit is contained in:
Gerd Moellmann 2001-09-05 08:20:13 +00:00
parent 13bc4e1a3d
commit 369335f5fa
1 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/calendar/cal-menu.el
View file

@ -1,6 +1,6 @@
;;; cal-menu.el --- calendar functions for menu bar and popup menu support
;; Copyright (C) 1994, 1995 Free Software Foundation, Inc.
;; Copyright (C) 1994, 1995, 2001 Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
;; Lara Rios <lrios@coewl.cen.uiuc.edu>
@ -318,13 +318,18 @@ ERROR is t, otherwise just returns nil."
"Pop up menu of diary entries from alternative file on mouse-selected date."
(interactive)
(let* ((date (calendar-event-to-date))
(diary-list-include-blanks nil)
(diary-display-hook 'ignore)
(diary-file (read-file-name
"Enter diary file name: "
default-directory nil t))
; The following doesn't really do the right thing. The problem is
; that a newline in the diary entry does not give a newline in a
; pop-up menu; for that you need a separate list item. When the (car
; (cdr x)) contains newlines, the item should be split into a list of
; items. Too minor and messy to worry about.
(l (mapcar '(lambda (x) (list (car (cdr x))))
(let ((diary-list-include-blanks nil)
(diary-display-hook 'ignore)
(diary-file (read-file-name
"Enter diary file name: "
default-directory nil t)))
(list-diary-entries date 1))))
(list-diary-entries date 1)))
(selection
(x-popup-menu
event