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

[Glenn Morris]

Index: emacs/lisp/calendar/cal-move.el
diff -c emacs/lisp/calendar/cal-move.el:1.7 emacs/lisp/calendar/cal-move.el:1.8
*** emacs/lisp/calendar/cal-move.el:1.7 Sun Aug  3 09:55:46 2003
--- emacs/lisp/calendar/cal-move.el     Sun Aug 17 18:49:46 2003
***************
*** 327,332 ****
--- 327,353 ----
    (calendar-cursor-to-visible-date date)
    (run-hooks 'calendar-move-hook))
  
+ (defun calendar-goto-day-of-year (year day &optional noecho)
+   "Move cursor to YEAR, DAY number; echo DAY/YEAR unless NOECHO is t.
+ Negative DAY counts backward from end of year."
+   (interactive
+    (let* ((year (calendar-read
+                  "Year (>0): "
+                  (lambda (x) (> x 0))
+                  (int-to-string (extract-calendar-year
+                                  (calendar-current-date)))))
+           (last (if (calendar-leap-year-p year) 366 365))
+           (day (calendar-read
+                 (format "Day number (+/- 1-%d): " last)
+                 '(lambda (x) (and (<= 1 (abs x)) (<= (abs x) last))))))
+      (list year day)))
+   (calendar-goto-date
+    (calendar-gregorian-from-absolute
+     (if (< 0 day)
+         (+ -1 day (calendar-absolute-from-gregorian (list 1 1 year)))
+       (+ 1 day (calendar-absolute-from-gregorian (list 12 31 year))))))
+   (or noecho (calendar-print-day-of-year)))
+ 
  (provide 'cal-move)
  
  ;;; cal-move.el ends here