diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-16 19:38:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-16 19:38:18 +0000 |
| commit | 899b130edfe2dab12ad4a754c735d3d0388f9cf3 (patch) | |
| tree | f3dfca06817f2717ed54a120e62712d5393dde96 /lisp/calendar/calendar.el | |
| parent | 4daaec5d0b9bcef8a843326b61573fb95b049135 (diff) | |
| download | emacs-899b130edfe2dab12ad4a754c735d3d0388f9cf3.tar.gz | |
(calendar-goto-today): Renamed from calendar-current-month.
Diffstat (limited to 'lisp/calendar/calendar.el')
| -rw-r--r-- | lisp/calendar/calendar.el | 8 |
1 files 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 "\\<calendar-mode-map>\\[scroll-calendar-left]") "Calendar" - (substitute-command-keys "\\<calendar-mode-map>\\[describe-calendar-mode] help/\\[calendar-other-month] other/\\[calendar-current-month] today") + (substitute-command-keys "\\<calendar-mode-map>\\[describe-calendar-mode] help/\\[calendar-other-month] other/\\[calendar-goto-today] today") '(calendar-date-string (calendar-current-date) t) (substitute-command-keys "\\<calendar-mode-map>\\[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. |