1406 |
"Move cursor to DATE." |
"Move cursor to DATE." |
1407 |
t) |
t) |
1408 |
|
|
1409 |
|
(autoload 'calendar-goto-day-of-year "cal-move" |
1410 |
|
"Move cursor to day of year." |
1411 |
|
t) |
1412 |
|
|
1413 |
(autoload 'calendar-only-one-frame-setup "cal-x" |
(autoload 'calendar-only-one-frame-setup "cal-x" |
1414 |
"Start calendar and display it in a dedicated frame.") |
"Start calendar and display it in a dedicated frame.") |
1415 |
|
|
2020 |
(define-key calendar-mode-map "\C-x\C-x" 'calendar-exchange-point-and-mark) |
(define-key calendar-mode-map "\C-x\C-x" 'calendar-exchange-point-and-mark) |
2021 |
(define-key calendar-mode-map "\e=" 'calendar-count-days-region) |
(define-key calendar-mode-map "\e=" 'calendar-count-days-region) |
2022 |
(define-key calendar-mode-map "gd" 'calendar-goto-date) |
(define-key calendar-mode-map "gd" 'calendar-goto-date) |
2023 |
|
(define-key calendar-mode-map "gD" 'calendar-goto-day-of-year) |
2024 |
(define-key calendar-mode-map "gj" 'calendar-goto-julian-date) |
(define-key calendar-mode-map "gj" 'calendar-goto-julian-date) |
2025 |
(define-key calendar-mode-map "ga" 'calendar-goto-astro-day-number) |
(define-key calendar-mode-map "ga" 'calendar-goto-astro-day-number) |
2026 |
(define-key calendar-mode-map "gh" 'calendar-goto-hebrew-date) |
(define-key calendar-mode-map "gh" 'calendar-goto-hebrew-date) |
2627 |
(aseqp (if abbrevs (calendar-abbrev-construct abbrevs sequence |
(aseqp (if abbrevs (calendar-abbrev-construct abbrevs sequence |
2628 |
'period))) |
'period))) |
2629 |
alist elem) |
alist elem) |
2630 |
(dotimes (i (1- (length sequence)) (reverse alist)) |
(dotimes (i (length sequence) (reverse alist)) |
2631 |
(setq index (+ i offset) |
(setq index (+ i offset) |
2632 |
elem (elt sequence i) |
elem (elt sequence i) |
2633 |
alist |
alist |