diff options
| author | Glenn Morris | 2005-03-26 15:55:15 +0000 |
|---|---|---|
| committer | Glenn Morris | 2005-03-26 15:55:15 +0000 |
| commit | 25b11e014def3083e649d1cadebfc888f11b7ba7 (patch) | |
| tree | a39b0e34085ee62f6fa3b7e8bb0f139774b3436f | |
| parent | b6a156a7354b6c18f5fae0862c95a06ef6f08619 (diff) | |
| download | emacs-25b11e014def3083e649d1cadebfc888f11b7ba7.tar.gz emacs-25b11e014def3083e649d1cadebfc888f11b7ba7.zip | |
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>.
| -rw-r--r-- | lisp/calendar/cal-move.el | 8 |
1 files 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 @@ | |||
| 1 | ;;; cal-move.el --- calendar functions for movement in the calendar | 1 | ;;; cal-move.el --- calendar functions for movement in the calendar |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1995, 2005 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> | 5 | ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> |
| 6 | ;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk> | ||
| 6 | ;; Keywords: calendar | 7 | ;; Keywords: calendar |
| 7 | ;; Human-Keywords: calendar | 8 | ;; Human-Keywords: calendar |
| 8 | 9 | ||
| @@ -269,7 +270,8 @@ Moves forward if ARG is negative." | |||
| 269 | (if (and (= arg 1) | 270 | (if (and (= arg 1) |
| 270 | (calendar-date-is-visible-p jan-first)) | 271 | (calendar-date-is-visible-p jan-first)) |
| 271 | (calendar-cursor-to-visible-date jan-first) | 272 | (calendar-cursor-to-visible-date jan-first) |
| 272 | (calendar-other-month 1 (- year (1- arg)))))) | 273 | (calendar-other-month 1 (- year (1- arg))) |
| 274 | (calendar-cursor-to-visible-date (list 1 1 displayed-year))))) | ||
| 273 | (run-hooks 'calendar-move-hook)) | 275 | (run-hooks 'calendar-move-hook)) |
| 274 | 276 | ||
| 275 | (defun calendar-end-of-year (arg) | 277 | (defun calendar-end-of-year (arg) |
| @@ -287,7 +289,7 @@ Moves forward if ARG is negative." | |||
| 287 | (if (and (= arg 1) | 289 | (if (and (= arg 1) |
| 288 | (calendar-date-is-visible-p dec-31)) | 290 | (calendar-date-is-visible-p dec-31)) |
| 289 | (calendar-cursor-to-visible-date dec-31) | 291 | (calendar-cursor-to-visible-date dec-31) |
| 290 | (calendar-other-month 12 (- year (1- arg))) | 292 | (calendar-other-month 12 (+ year (1- arg))) |
| 291 | (calendar-cursor-to-visible-date (list 12 31 displayed-year))))) | 293 | (calendar-cursor-to-visible-date (list 12 31 displayed-year))))) |
| 292 | (run-hooks 'calendar-move-hook)) | 294 | (run-hooks 'calendar-move-hook)) |
| 293 | 295 | ||