From 87671c2577bf0503d24fc68b1a43258ffa97a069 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 1 Oct 2001 11:08:06 +0000 Subject: [PATCH] (cal-menu-x-popup-menu): New function, calls x-popup-menu only if popup menus are supported. (calendar-mouse-insert-hebrew-diary-entry) (calendar-mouse-insert-islamic-diary-entry) (calendar-mouse-holidays, calendar-mouse-view-diary-entries) (calendar-mouse-view-other-diary-entries) (calendar-mouse-print-dates, calendar-mouse-2-date-menu) (calendar-mouse-cal-tex-menu, cal-tex-mouse-filofax): Call cal-menu-x-popup-menu instead of x-popup-menu. --- lisp/ChangeLog | 19 +++++++++++++++++++ lisp/calendar/cal-menu.el | 25 ++++++++++++++++--------- 2 files changed, 35 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 11a429aefe6..3b9d07da154 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,22 @@ +2001-10-01 Eli Zaretskii + + These changes add support for Calendar-related items in the + menu bar on tty's as well: + + * calendar/calendar.el (calendar-mode-map): Require cal-menu + unconditionally. + (calendar-mode): Set up activate-menubar-hook unconditionally. + + * calendar/cal-menu.el (cal-menu-x-popup-menu): New function, + calls x-popup-menu only if popup menus are supported. + (calendar-mouse-insert-hebrew-diary-entry) + (calendar-mouse-insert-islamic-diary-entry) + (calendar-mouse-holidays, calendar-mouse-view-diary-entries) + (calendar-mouse-view-other-diary-entries) + (calendar-mouse-print-dates, calendar-mouse-2-date-menu) + (calendar-mouse-cal-tex-menu, cal-tex-mouse-filofax): Call + cal-menu-x-popup-menu instead of x-popup-menu. + 2001-10-01 Gerd Moellmann * gs.el (gs-set-ghostview-window-prop): Fix args of `elt'. diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 3391dd0d242..9b0cdd3e7b8 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -161,6 +161,13 @@ (define-key calendar-mode-map [menu-bar scroll fwd-1] '("Forward 1 Month" . scroll-calendar-left)) +(defun cal-menu-x-popup-menu (position menu) + "Like `x-popup-menu', but prints an error message if popup menus are +not available." + (if (display-popup-menus-p) + (x-popup-menu position menu) + (error "Popup menus are not available on this system."))) + (defun cal-menu-list-holidays-year () "Display a list of the holidays of the selected date's year." (interactive) @@ -244,7 +251,7 @@ ERROR is t, otherwise just returns nil." "Pop up menu to insert a Hebrew-date diary entry." (interactive "e") (let ((hebrew-selection - (x-popup-menu + (cal-menu-x-popup-menu event (list "Hebrew insert menu" (list (calendar-hebrew-date-string (calendar-cursor-to-date)) @@ -257,7 +264,7 @@ ERROR is t, otherwise just returns nil." "Pop up menu to insert an Islamic-date diary entry." (interactive "e") (let ((islamic-selection - (x-popup-menu + (cal-menu-x-popup-menu event (list "Islamic insert menu" (list (calendar-islamic-date-string (calendar-cursor-to-date)) @@ -287,7 +294,7 @@ ERROR is t, otherwise just returns nil." (l (mapcar '(lambda (x) (list x)) (check-calendar-holidays date))) (selection - (x-popup-menu + (cal-menu-x-popup-menu event (list (format "Holidays for %s" (calendar-date-string date)) @@ -305,7 +312,7 @@ ERROR is t, otherwise just returns nil." (diary-display-hook 'ignore)) (list-diary-entries date 1)))) (selection - (x-popup-menu + (cal-menu-x-popup-menu event (list (format "Diary entries for %s" (calendar-date-string date)) @@ -331,7 +338,7 @@ ERROR is t, otherwise just returns nil." (l (mapcar '(lambda (x) (list (car (cdr x)))) (list-diary-entries date 1))) (selection - (x-popup-menu + (cal-menu-x-popup-menu event (list (format "Diary entries from %s for %s" @@ -459,7 +466,7 @@ The output is in landscape format, one month to a page." (interactive) (let ((date (calendar-event-to-date)) (selection - (x-popup-menu + (cal-menu-x-popup-menu event (list (concat (calendar-date-string date) " (Gregorian)") @@ -519,7 +526,7 @@ The output is in landscape format, one month to a page." (interactive "e") (let* ((date (calendar-event-to-date t)) (selection - (x-popup-menu + (cal-menu-x-popup-menu event (list (calendar-date-string date t nil) (list @@ -540,7 +547,7 @@ The output is in landscape format, one month to a page." "Pop up submenu for Mouse-2 for cal-tex commands for selected date in the calendar window." (interactive "e") (let* ((selection - (x-popup-menu + (cal-menu-x-popup-menu event (list (calendar-date-string date t nil) (list @@ -563,7 +570,7 @@ The output is in landscape format, one month to a page." "Pop up sub-submenu for Mouse-2 for Filofax cal-tex commands for selected date." (interactive "e") (let* ((selection - (x-popup-menu + (cal-menu-x-popup-menu event (list (calendar-date-string date t nil) (list -- 2.39.5