[Emacs-diffs] Changes to emacs/lisp/calendar/calendar.el

[Glenn Morris]

Index: emacs/lisp/calendar/calendar.el
diff -c emacs/lisp/calendar/calendar.el:1.149 
emacs/lisp/calendar/calendar.el:1.150
*** emacs/lisp/calendar/calendar.el:1.149       Wed Aug  6 06:10:12 2003
--- emacs/lisp/calendar/calendar.el     Sun Aug 17 18:51:29 2003
***************
*** 1406,1411 ****
--- 1406,1415 ----
    "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,2021 ****
--- 2020,2026 ----
    (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,2628 ****
          (aseqp (if abbrevs (calendar-abbrev-construct abbrevs sequence
                                                        'period)))
          alist elem)
!     (dotimes (i (1- (length sequence)) (reverse alist))
        (setq index (+ i offset)
              elem (elt sequence i)
              alist
--- 2627,2633 ----
          (aseqp (if abbrevs (calendar-abbrev-construct abbrevs sequence
                                                        'period)))
          alist elem)
!     (dotimes (i (length sequence) (reverse alist))
        (setq index (+ i offset)
              elem (elt sequence i)
              alist