Mercurial > emacs
comparison lisp/calendar/calendar.el @ 73181:97319c05f531
(european-calendar-style): Tweak previous fix.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 30 Sep 2006 01:25:25 +0000 |
parents | 3dbfd59b44b5 |
children | 099deb7b2cbd bb0e318b7c53 |
comparison
equal
deleted
inserted
replaced
73180:16edffa03262 | 73181:97319c05f531 |
---|---|
576 `american-calendar'." | 576 `american-calendar'." |
577 :type 'boolean | 577 :type 'boolean |
578 ;; Without :initialize (require 'calendar) throws an error because | 578 ;; Without :initialize (require 'calendar) throws an error because |
579 ;; american-calendar is undefined at this point. | 579 ;; american-calendar is undefined at this point. |
580 :initialize 'custom-initialize-default | 580 :initialize 'custom-initialize-default |
581 :set #'(lambda (symbol value) | 581 :set (lambda (symbol value) |
582 (if value | 582 (if value |
583 (european-calendar) | 583 (european-calendar) |
584 (american-calendar))) | 584 (american-calendar))) |
585 :require 'calendar | |
586 :group 'diary) | 585 :group 'diary) |
587 | 586 |
588 ;;;###autoload | 587 ;;;###autoload |
589 (defcustom american-date-diary-pattern | 588 (defcustom american-date-diary-pattern |
590 '((month "/" day "[^/0-9]") | 589 '((month "/" day "[^/0-9]") |