[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.9 emacs/lisp/calendar/cal-move.el:1.10
*** emacs/lisp/calendar/cal-move.el:1.9 Mon Sep  1 15:45:19 2003
--- emacs/lisp/calendar/cal-move.el     Sat Mar 26 15:55:15 2005
***************
*** 1,8 ****
  ;;; cal-move.el --- calendar functions for movement in the calendar
  
! ;; Copyright (C) 1995 Free Software Foundation, Inc.
  
  ;; Author: Edward M. Reingold <address@hidden>
  ;; Keywords: calendar
  ;; Human-Keywords: calendar
  
--- 1,9 ----
  ;;; cal-move.el --- calendar functions for movement in the calendar
  
! ;; Copyright (C) 1995, 2005  Free Software Foundation, Inc.
  
  ;; Author: Edward M. Reingold <address@hidden>
+ ;; Maintainer: Glenn Morris <address@hidden>
  ;; Keywords: calendar
  ;; Human-Keywords: calendar
  
***************
*** 269,275 ****
        (if (and (= arg 1)
                 (calendar-date-is-visible-p jan-first))
            (calendar-cursor-to-visible-date jan-first)
!         (calendar-other-month 1 (- year (1- arg))))))
    (run-hooks 'calendar-move-hook))
  
  (defun calendar-end-of-year (arg)
--- 270,277 ----
        (if (and (= arg 1)
                 (calendar-date-is-visible-p jan-first))
            (calendar-cursor-to-visible-date jan-first)
!         (calendar-other-month 1 (- year (1- arg)))
!         (calendar-cursor-to-visible-date (list 1 1 displayed-year)))))
    (run-hooks 'calendar-move-hook))
  
  (defun calendar-end-of-year (arg)
***************
*** 287,293 ****
        (if (and (= arg 1)
                 (calendar-date-is-visible-p dec-31))
            (calendar-cursor-to-visible-date dec-31)
!         (calendar-other-month 12 (- year (1- arg)))
          (calendar-cursor-to-visible-date (list 12 31 displayed-year)))))
    (run-hooks 'calendar-move-hook))
  
--- 289,295 ----
        (if (and (= arg 1)
                 (calendar-date-is-visible-p dec-31))
            (calendar-cursor-to-visible-date dec-31)
!         (calendar-other-month 12 (+ year (1- arg)))
          (calendar-cursor-to-visible-date (list 12 31 displayed-year)))))
    (run-hooks 'calendar-move-hook))