diff options
author | Gerd Moellmann <gerd@gnu.org> | 2001-03-26 13:33:23 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2001-03-26 13:33:23 +0000 |
commit | 2d67961df6cf2e9a7c75dc5d2b999dafbae7cd01 (patch) | |
tree | 68f8da3fc4ebf772a6d3ad575058301e917a81ef /lisp/calendar/cal-menu.el | |
parent | 3ae25f7cab7aa8508c16e87035317c65e441792b (diff) | |
download | emacs-2d67961df6cf2e9a7c75dc5d2b999dafbae7cd01.tar.gz |
Undo changes made by John Wiegley in previous revision.
Diffstat (limited to 'lisp/calendar/cal-menu.el')
-rw-r--r-- | lisp/calendar/cal-menu.el | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 51cdb157ad5..7c7056db7e7 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -63,8 +63,6 @@ '("Insert Hebrew" . calendar-mouse-insert-hebrew-diary-entry)) (define-key calendar-mode-map [menu-bar diary isl] '("Insert Islamic" . calendar-mouse-insert-islamic-diary-entry)) -(define-key calendar-mode-map [menu-bar diary baha] - '("Insert Baha'i" . calendar-mouse-insert-bahai-diary-entry)) (define-key calendar-mode-map [menu-bar diary cyc] '("Insert Cyclic" . insert-cyclic-diary-entry)) (define-key calendar-mode-map [menu-bar diary blk] @@ -109,8 +107,6 @@ (define-key calendar-mode-map [menu-bar goto islamic] '("Islamic Date" . calendar-goto-islamic-date)) (define-key calendar-mode-map [menu-bar goto persian] - '("Baha'i Date" . calendar-goto-bahai-date)) -(define-key calendar-mode-map [menu-bar goto persian] '("Persian Date" . calendar-goto-persian-date)) (define-key calendar-mode-map [menu-bar goto hebrew] '("Hebrew Date" . calendar-goto-hebrew-date)) @@ -270,19 +266,6 @@ ERROR is t, otherwise just returns nil." '("Yearly" . insert-yearly-islamic-diary-entry)))))) (and islamic-selection (call-interactively islamic-selection)))) -(defun calendar-mouse-insert-bahai-diary-entry (event) - "Pop up menu to insert an Baha'i-date diary entry." - (interactive "e") - (let ((bahai-selection - (x-popup-menu - event - (list "Baha'i insert menu" - (list (calendar-bahai-date-string (calendar-cursor-to-date)) - '("One time" . insert-bahai-diary-entry) - '("Monthly" . insert-monthly-bahai-diary-entry) - '("Yearly" . insert-yearly-bahai-diary-entry)))))) - (and bahai-selection (call-interactively bahai-selection)))) - (defun calendar-mouse-sunrise/sunset () "Show sunrise/sunset times for mouse-selected date." (interactive) @@ -491,9 +474,7 @@ The output is in landscape format, one month to a page." (list (format "Hebrew date (before sunset): %s" (calendar-hebrew-date-string date))) (list (format "Persian date: %s" - (calendar-persian-date-string date))) - (list (format "Baha'i date (before sunset): %s" - (calendar-bahai-date-string date)))) + (calendar-persian-date-string date)))) (let ((i (calendar-islamic-date-string date))) (if (not (string-equal i "")) (list (list (format "Islamic date (before sunset): %s" i))))) |