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