Mercurial > emacs

comparison lisp/calendar/cal-menu.el @ 57325:670acab99124

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update copyright and maintainer. From Emilio C. Lopes <eclig@gmx.net>: (calendar-mode-map): Add binding for `calendar-goto-iso-week'.
author Glenn Morris <rgm@gnu.org>
date Mon, 04 Oct 2004 23:45:06 +0000
parents b278cb498cc8
children 794bc6a34084 ff0e824afa37
comparison
equal deleted inserted replaced
57324:f51c087984a0 57325:670acab99124
1 ;;; cal-menu.el --- calendar functions for menu bar and popup menu support 1 ;;; cal-menu.el --- calendar functions for menu bar and popup menu support
2 2
3 ;; Copyright (C) 1994, 1995, 2001, 2003 Free Software Foundation, Inc. 3 ;; Copyright (C) 1994, 1995, 2001, 2003, 2004 Free Software Foundation, Inc.
4 4
5 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> 5 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
6 ;; Lara Rios <lrios@coewl.cen.uiuc.edu> 6 ;; Lara Rios <lrios@coewl.cen.uiuc.edu>
7 ;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk>
7 ;; Keywords: calendar 8 ;; Keywords: calendar
8 ;; Human-Keywords: calendar, popup menus, menu bar 9 ;; Human-Keywords: calendar, popup menus, menu bar
9 10
10 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
11 12
119 '("Hebrew Date" . calendar-goto-hebrew-date)) 120 '("Hebrew Date" . calendar-goto-hebrew-date))
120 (define-key calendar-mode-map [menu-bar goto astro] 121 (define-key calendar-mode-map [menu-bar goto astro]
121 '("Astronomical Date" . calendar-goto-astro-day-number)) 122 '("Astronomical Date" . calendar-goto-astro-day-number))
122 (define-key calendar-mode-map [menu-bar goto iso] 123 (define-key calendar-mode-map [menu-bar goto iso]
123 '("ISO Date" . calendar-goto-iso-date)) 124 '("ISO Date" . calendar-goto-iso-date))
125 (define-key calendar-mode-map [menu-bar goto iso-week]
126 '("ISO Week" . calendar-goto-iso-week))
124 (define-key calendar-mode-map [menu-bar goto day-of-year] 127 (define-key calendar-mode-map [menu-bar goto day-of-year]
125 '("Day of Year" . calendar-goto-day-of-year)) 128 '("Day of Year" . calendar-goto-day-of-year))
126 (define-key calendar-mode-map [menu-bar goto gregorian] 129 (define-key calendar-mode-map [menu-bar goto gregorian]
127 '("Other Date" . calendar-goto-date)) 130 '("Other Date" . calendar-goto-date))
128 (define-key calendar-mode-map [menu-bar goto end-of-year] 131 (define-key calendar-mode-map [menu-bar goto end-of-year]