Mercurial > emacs
changeset 4652:0f5527e47955
* calendar.el (calendar-absolute-from-iso,
american-calendar-display-form, european-calendar-display-form):
Fix typos in doc strings doc strings.
(calendar-mode-map): Use "[prior]" and "[next]" in key bindings.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Fri, 20 Aug 1993 15:55:57 +0000 |
| parents | 7ca17b5fd85e |
| children | 8e72792f2d18 |
| files | lisp/calendar/calendar.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/calendar.el Fri Aug 20 15:55:29 1993 +0000 +++ b/lisp/calendar/calendar.el Fri Aug 20 15:55:57 1993 +0000 @@ -409,13 +409,13 @@ (defvar european-calendar-display-form '((if dayname (concat dayname ", ")) day " " monthname " " year) "*Pseudo-pattern governing the way a date appears in the European style. -See the documentation of calendar-date-display-forms for an explanation.") +See the documentation of calendar-date-display-form for an explanation.") ;;;###autoload (defvar american-calendar-display-form '((if dayname (concat dayname ", ")) monthname " " day ", " year) "*Pseudo-pattern governing the way a date appears in the American style. -See the documentation of calendar-date-display-forms for an explanation.") +See the documentation of calendar-date-display-form for an explanation.") (defvar calendar-date-display-form (if european-calendar-style @@ -1387,9 +1387,9 @@ (setq l (cdr l))))) (define-key calendar-mode-map "-" 'negative-argument) (define-key calendar-mode-map "\C-x>" 'scroll-calendar-right) - (define-key calendar-mode-map "\ev" 'scroll-calendar-right-three-months) + (define-key calendar-mode-map [prior] 'scroll-calendar-right-three-months) (define-key calendar-mode-map "\C-x<" 'scroll-calendar-left) - (define-key calendar-mode-map "\C-v" 'scroll-calendar-left-three-months) + (define-key calendar-mode-map [next] 'scroll-calendar-left-three-months) (define-key calendar-mode-map "\C-b" 'calendar-backward-day) (define-key calendar-mode-map "\C-p" 'calendar-backward-week) (define-key calendar-mode-map "\e{" 'calendar-backward-month) @@ -2590,7 +2590,7 @@ the first such week in which at least 4 days are in a year. The ISO commercial DATE has the form (week day year) in which week is in the range 1..52 and day is in the range 0..6 (1 = Monday, 2 = Tuesday, ..., 0 = -Sunday). The The Gregorian date Sunday, December 31, 1 BC is imaginary." +Sunday). The Gregorian date Sunday, December 31, 1 BC is imaginary." (let* ((week (extract-calendar-month date)) (day (extract-calendar-day date)) (year (extract-calendar-year date)))