1 |
;;; cal-menu.el --- calendar functions for menu bar and popup menu support |
;;; cal-menu.el --- calendar functions for menu bar and popup menu support |
2 |
|
|
3 |
;; Copyright (C) 1994, 1995, 2001, 2003 Free Software Foundation, Inc. |
;; Copyright (C) 1994, 1995, 2001, 2003, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> |
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> |
6 |
;; Lara Rios <lrios@coewl.cen.uiuc.edu> |
;; Lara Rios <lrios@coewl.cen.uiuc.edu> |
7 |
|
;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk> |
8 |
;; Keywords: calendar |
;; Keywords: calendar |
9 |
;; Human-Keywords: calendar, popup menus, menu bar |
;; Human-Keywords: calendar, popup menus, menu bar |
10 |
|
|
122 |
'("Astronomical Date" . calendar-goto-astro-day-number)) |
'("Astronomical Date" . calendar-goto-astro-day-number)) |
123 |
(define-key calendar-mode-map [menu-bar goto iso] |
(define-key calendar-mode-map [menu-bar goto iso] |
124 |
'("ISO Date" . calendar-goto-iso-date)) |
'("ISO Date" . calendar-goto-iso-date)) |
125 |
|
(define-key calendar-mode-map [menu-bar goto iso-week] |
126 |
|
'("ISO Week" . calendar-goto-iso-week)) |
127 |
(define-key calendar-mode-map [menu-bar goto day-of-year] |
(define-key calendar-mode-map [menu-bar goto day-of-year] |
128 |
'("Day of Year" . calendar-goto-day-of-year)) |
'("Day of Year" . calendar-goto-day-of-year)) |
129 |
(define-key calendar-mode-map [menu-bar goto gregorian] |
(define-key calendar-mode-map [menu-bar goto gregorian] |