Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

Update copyright and maintainer.

Browse source 
(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>.
This commit is contained in:
Glenn Morris 2005-03-26 15:55:15 +00:00
parent b6a156a735
commit 25b11e014d
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/calendar/cal-move.el
View file

@ -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 @@ 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))