From 25b11e014def3083e649d1cadebfc888f11b7ba7 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 26 Mar 2005 15:55:15 +0000 Subject: [PATCH] Update copyright and maintainer. (calendar-beginning-of-year): Move the cursor to Jan 1 when needed. (calendar-end-of-year): Fix -/+ typo. Reported by Chong Yidong . --- lisp/calendar/cal-move.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/calendar/cal-move.el b/lisp/calendar/cal-move.el index 045c11ba1d7..e89ee2a26e2 100644 --- a/lisp/calendar/cal-move.el +++ b/lisp/calendar/cal-move.el @@ -1,8 +1,9 @@ ;;; cal-move.el --- calendar functions for movement in the calendar -;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995, 2005 Free Software Foundation, Inc. ;; Author: Edward M. Reingold +;; Maintainer: Glenn Morris ;; Keywords: calendar ;; Human-Keywords: calendar @@ -269,7 +270,8 @@ Moves forward if ARG is negative." (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-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,7 +289,7 @@ Moves forward if ARG is negative." (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-other-month 12 (+ year (1- arg))) (calendar-cursor-to-visible-date (list 12 31 displayed-year))))) (run-hooks 'calendar-move-hook)) -- 2.39.2