Mercurial > emacs
changeset 52232:e1debf3a5153
Edward M. Reingold <reingold@emr.cs.iit.edu>
Bind `calendar-goto-day-of-year' to key.
Alan Shutko <ats@acm.org>
(calendar-make-alist): Correct off-by-one keeping December out of the
alist.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 17 Aug 2003 22:51:29 +0000 |
| parents | 9529ff0804c2 |
| children | 20e27d5ca4c8 |
| files | lisp/calendar/calendar.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/calendar.el Sun Aug 17 22:49:46 2003 +0000 +++ b/lisp/calendar/calendar.el Sun Aug 17 22:51:29 2003 +0000 @@ -1406,6 +1406,10 @@ "Move cursor to DATE." t) +(autoload 'calendar-goto-day-of-year "cal-move" + "Move cursor to day of year." + t) + (autoload 'calendar-only-one-frame-setup "cal-x" "Start calendar and display it in a dedicated frame.") @@ -2016,6 +2020,7 @@ (define-key calendar-mode-map "\C-x\C-x" 'calendar-exchange-point-and-mark) (define-key calendar-mode-map "\e=" 'calendar-count-days-region) (define-key calendar-mode-map "gd" 'calendar-goto-date) + (define-key calendar-mode-map "gD" 'calendar-goto-day-of-year) (define-key calendar-mode-map "gj" 'calendar-goto-julian-date) (define-key calendar-mode-map "ga" 'calendar-goto-astro-day-number) (define-key calendar-mode-map "gh" 'calendar-goto-hebrew-date) @@ -2622,7 +2627,7 @@ (aseqp (if abbrevs (calendar-abbrev-construct abbrevs sequence 'period))) alist elem) - (dotimes (i (1- (length sequence)) (reverse alist)) + (dotimes (i (length sequence) (reverse alist)) (setq index (+ i offset) elem (elt sequence i) alist