# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1061160689 0
# Node ID e1debf3a51532c1e955035c148eb70f49706cce4
# Parent  9529ff0804c2b7386805dee70cd726c30bb6054d
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.

diff -r 9529ff0804c2 -r e1debf3a5153 lisp/calendar/calendar.el
--- 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