Mercurial > emacs

comparison lisp/calendar/calendar.el @ 64826:8e1886955e26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-mode-map): Bind < and > usefully.
author Richard M. Stallman <rms@gnu.org>
date Tue, 09 Aug 2005 11:30:36 +0000
parents 6d54ca488e15
children a08c0922f1c4 2d92f5c9d6ae
comparison
equal deleted inserted replaced
64825:b43107701c1e 64826:8e1886955e26
2203 (while l 2203 (while l
2204 (substitute-key-definition (car l) 'calendar-not-implemented 2204 (substitute-key-definition (car l) 'calendar-not-implemented
2205 calendar-mode-map global-map) 2205 calendar-mode-map global-map)
2206 (setq l (cdr l)))) 2206 (setq l (cdr l))))
2207 (define-key calendar-mode-map "-" 'negative-argument) 2207 (define-key calendar-mode-map "-" 'negative-argument)
2208 (define-key calendar-mode-map ">" 'scroll-calendar-right)
2208 (define-key calendar-mode-map "\C-x>" 'scroll-calendar-right) 2209 (define-key calendar-mode-map "\C-x>" 'scroll-calendar-right)
2209 (define-key calendar-mode-map [prior] 'scroll-calendar-right-three-months) 2210 (define-key calendar-mode-map [prior] 'scroll-calendar-right-three-months)
2210 (define-key calendar-mode-map "\ev" 'scroll-calendar-right-three-months) 2211 (define-key calendar-mode-map "\ev" 'scroll-calendar-right-three-months)
2212 (define-key calendar-mode-map "<" 'scroll-calendar-left)
2211 (define-key calendar-mode-map "\C-x<" 'scroll-calendar-left) 2213 (define-key calendar-mode-map "\C-x<" 'scroll-calendar-left)
2212 (define-key calendar-mode-map [next] 'scroll-calendar-left-three-months) 2214 (define-key calendar-mode-map [next] 'scroll-calendar-left-three-months)
2213 (define-key calendar-mode-map "\C-v" 'scroll-calendar-left-three-months) 2215 (define-key calendar-mode-map "\C-v" 'scroll-calendar-left-three-months)
2214 (define-key calendar-mode-map "\C-b" 'calendar-backward-day) 2216 (define-key calendar-mode-map "\C-b" 'calendar-backward-day)
2215 (define-key calendar-mode-map "\C-p" 'calendar-backward-week) 2217 (define-key calendar-mode-map "\C-p" 'calendar-backward-week)