From 899b130edfe2dab12ad4a754c735d3d0388f9cf3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 Jul 1994 19:38:18 +0000 Subject: [PATCH] (calendar-goto-today): Renamed from calendar-current-month. --- lisp/calendar/calendar.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index bb3aaed68b5..103fd2acf67 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1505,7 +1505,7 @@ the inserted text. Value is always t." (define-key calendar-mode-map "M" 'calendar-phases-of-moon) (define-key calendar-mode-map " " 'scroll-other-window) (define-key calendar-mode-map "\C-c\C-l" 'redraw-calendar) - (define-key calendar-mode-map "." 'calendar-current-month) + (define-key calendar-mode-map "." 'calendar-goto-today) (define-key calendar-mode-map "o" 'calendar-other-month) (define-key calendar-mode-map "q" 'exit-calendar) (define-key calendar-mode-map "a" 'list-calendar-holidays) @@ -1557,7 +1557,7 @@ the inserted text. Value is always t." (list (substitute-command-keys "\\\\[scroll-calendar-left]") "Calendar" - (substitute-command-keys "\\\\[describe-calendar-mode] help/\\[calendar-other-month] other/\\[calendar-current-month] today") + (substitute-command-keys "\\\\[describe-calendar-mode] help/\\[calendar-other-month] other/\\[calendar-goto-today] today") '(calendar-date-string (calendar-current-date) t) (substitute-command-keys "\\\\[scroll-calendar-right]")) "The mode line of the calendar buffer.") @@ -1601,7 +1601,7 @@ The commands for calendar movement are: \\[scroll-calendar-right] scroll one month right \\[scroll-calendar-left] scroll one month left \\[scroll-calendar-right-three-months] scroll 3 months right \\[scroll-calendar-left-three-months] scroll 3 months left - \\[calendar-current-month] display current month \\[calendar-other-month] display another month + \\[calendar-goto-today] display current month \\[calendar-other-month] display another month Whenever it makes sense, the above commands take prefix arguments that multiply their affect. For convenience, the digit keys and the minus sign @@ -1854,7 +1854,7 @@ concatenated and the result truncated." (set-buffer-modified-p nil) (bury-buffer diary-buffer)))))) -(defun calendar-current-month () +(defun calendar-goto-today () "Reposition the calendar window so the current date is visible." (interactive) (let ((today (calendar-current-date)));; The date might have changed. -- 2.39.5