Mercurial > emacs

changeset 60981:669da3d2cff9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 <cyd@stupidchicken.com>.
author Glenn Morris <rgm@gnu.org>
date Sat, 26 Mar 2005 15:55:15 +0000
parents 794bc6a34084
children 26f327ef246e
files lisp/calendar/cal-move.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-move.el	Sat Mar 26 15:54:29 2005 +0000
+++ b/lisp/calendar/cal-move.el	Sat Mar 26 15:55:15 2005 +0000
@@ -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 <reingold@cs.uiuc.edu>
+;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk>
 ;; Keywords: calendar
 ;; Human-Keywords: calendar
 
@@ -269,7 +270,8 @@
       (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 @@
       (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))