aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1993-08-20 15:55:57 +0000
committerJim Blandy1993-08-20 15:55:57 +0000
commit0d336f18a899495eb740fcd3b79998548cd0413f (patch)
treebcec3d0375375c83de76711f3029b40e5836debd
parent808977603efd8e4e04b43ce4a92d9157185512d6 (diff)
downloademacs-0d336f18a899495eb740fcd3b79998548cd0413f.tar.gz
emacs-0d336f18a899495eb740fcd3b79998548cd0413f.zip
* 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.
-rw-r--r--lisp/calendar/calendar.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 86aab1c4c25..1b10ff55db6 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -409,13 +409,13 @@ a portion of the first word of the diary entry.")
409(defvar european-calendar-display-form 409(defvar european-calendar-display-form
410 '((if dayname (concat dayname ", ")) day " " monthname " " year) 410 '((if dayname (concat dayname ", ")) day " " monthname " " year)
411 "*Pseudo-pattern governing the way a date appears in the European style. 411 "*Pseudo-pattern governing the way a date appears in the European style.
412See the documentation of calendar-date-display-forms for an explanation.") 412See the documentation of calendar-date-display-form for an explanation.")
413 413
414;;;###autoload 414;;;###autoload
415(defvar american-calendar-display-form 415(defvar american-calendar-display-form
416 '((if dayname (concat dayname ", ")) monthname " " day ", " year) 416 '((if dayname (concat dayname ", ")) monthname " " day ", " year)
417 "*Pseudo-pattern governing the way a date appears in the American style. 417 "*Pseudo-pattern governing the way a date appears in the American style.
418See the documentation of calendar-date-display-forms for an explanation.") 418See the documentation of calendar-date-display-form for an explanation.")
419 419
420(defvar calendar-date-display-form 420(defvar calendar-date-display-form
421 (if european-calendar-style 421 (if european-calendar-style
@@ -1387,9 +1387,9 @@ the inserted text. Value is always t."
1387 (setq l (cdr l))))) 1387 (setq l (cdr l)))))
1388 (define-key calendar-mode-map "-" 'negative-argument) 1388 (define-key calendar-mode-map "-" 'negative-argument)
1389 (define-key calendar-mode-map "\C-x>" 'scroll-calendar-right) 1389 (define-key calendar-mode-map "\C-x>" 'scroll-calendar-right)
1390 (define-key calendar-mode-map "\ev" 'scroll-calendar-right-three-months) 1390 (define-key calendar-mode-map [prior] 'scroll-calendar-right-three-months)
1391 (define-key calendar-mode-map "\C-x<" 'scroll-calendar-left) 1391 (define-key calendar-mode-map "\C-x<" 'scroll-calendar-left)
1392 (define-key calendar-mode-map "\C-v" 'scroll-calendar-left-three-months) 1392 (define-key calendar-mode-map [next] 'scroll-calendar-left-three-months)
1393 (define-key calendar-mode-map "\C-b" 'calendar-backward-day) 1393 (define-key calendar-mode-map "\C-b" 'calendar-backward-day)
1394 (define-key calendar-mode-map "\C-p" 'calendar-backward-week) 1394 (define-key calendar-mode-map "\C-p" 'calendar-backward-week)
1395 (define-key calendar-mode-map "\e{" 'calendar-backward-month) 1395 (define-key calendar-mode-map "\e{" 'calendar-backward-month)
@@ -2590,7 +2590,7 @@ weeks start on Monday and end on Sunday. The first week of the ISO year is
2590the first such week in which at least 4 days are in a year. The ISO 2590the first such week in which at least 4 days are in a year. The ISO
2591commercial DATE has the form (week day year) in which week is in the range 2591commercial DATE has the form (week day year) in which week is in the range
25921..52 and day is in the range 0..6 (1 = Monday, 2 = Tuesday, ..., 0 = 25921..52 and day is in the range 0..6 (1 = Monday, 2 = Tuesday, ..., 0 =
2593Sunday). The The Gregorian date Sunday, December 31, 1 BC is imaginary." 2593Sunday). The Gregorian date Sunday, December 31, 1 BC is imaginary."
2594 (let* ((week (extract-calendar-month date)) 2594 (let* ((week (extract-calendar-month date))
2595 (day (extract-calendar-day date)) 2595 (day (extract-calendar-day date))
2596 (year (extract-calendar-year date))) 2596 (year (extract-calendar-year date)))