diff options
| author | Jim Blandy | 1993-08-20 15:55:57 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-08-20 15:55:57 +0000 |
| commit | 0d336f18a899495eb740fcd3b79998548cd0413f (patch) | |
| tree | bcec3d0375375c83de76711f3029b40e5836debd | |
| parent | 808977603efd8e4e04b43ce4a92d9157185512d6 (diff) | |
| download | emacs-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.el | 10 |
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. |
| 412 | See the documentation of calendar-date-display-forms for an explanation.") | 412 | See 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. |
| 418 | See the documentation of calendar-date-display-forms for an explanation.") | 418 | See 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 | |||
| 2590 | the first such week in which at least 4 days are in a year. The ISO | 2590 | the first such week in which at least 4 days are in a year. The ISO |
| 2591 | commercial DATE has the form (week day year) in which week is in the range | 2591 | commercial DATE has the form (week day year) in which week is in the range |
| 2592 | 1..52 and day is in the range 0..6 (1 = Monday, 2 = Tuesday, ..., 0 = | 2592 | 1..52 and day is in the range 0..6 (1 = Monday, 2 = Tuesday, ..., 0 = |
| 2593 | Sunday). The The Gregorian date Sunday, December 31, 1 BC is imaginary." | 2593 | Sunday). 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))) |