Mercurial > emacs
comparison lisp/calendar/calendar.el @ 77044:e0a720fbf325
(diary-font-lock-keywords, diary-live-p): Autoload these functions.
(diary-date-forms): Add a custom :set form.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 07 Apr 2007 21:53:39 +0000 |
| parents | f6dad15ba551 |
| children | 345c5cf4990e 4ef881a120fe |
comparison
equal
deleted
inserted
replaced
| 77043:694008dfe9c9 | 77044:e0a720fbf325 |
|---|---|
| 627 (repeat (list :inline t :format "%v" | 627 (repeat (list :inline t :format "%v" |
| 628 (symbol :tag "Keyword") | 628 (symbol :tag "Keyword") |
| 629 (choice symbol regexp))))) | 629 (choice symbol regexp))))) |
| 630 :group 'diary) | 630 :group 'diary) |
| 631 | 631 |
| 632 (autoload 'diary-font-lock-keywords "diary-lib") | |
| 633 (autoload 'diary-live-p "diary-lib") | |
| 634 (defvar diary-font-lock-keywords) | |
| 635 | |
| 632 (defcustom diary-date-forms | 636 (defcustom diary-date-forms |
| 633 (if european-calendar-style | 637 (if european-calendar-style |
| 634 european-date-diary-pattern | 638 european-date-diary-pattern |
| 635 american-date-diary-pattern) | 639 american-date-diary-pattern) |
| 636 "List of pseudo-patterns describing the forms of date used in the diary. | 640 "List of pseudo-patterns describing the forms of date used in the diary. |
| 664 (symbol :tag "Keyword") | 668 (symbol :tag "Keyword") |
| 665 (choice symbol regexp)))) | 669 (choice symbol regexp)))) |
| 666 (repeat (list :inline t :format "%v" | 670 (repeat (list :inline t :format "%v" |
| 667 (symbol :tag "Keyword") | 671 (symbol :tag "Keyword") |
| 668 (choice symbol regexp))))) | 672 (choice symbol regexp))))) |
| 673 :initialize 'custom-initialize-default | |
| 674 :set (lambda (symbol value) | |
| 675 (unless (equal value (eval symbol)) | |
| 676 (custom-set-default symbol value) | |
| 677 (setq diary-font-lock-keywords (diary-font-lock-keywords)) | |
| 678 ;; Need to redraw not just to get new font-locking, but also | |
| 679 ;; to pick up any newly recognized entries. | |
| 680 (and (diary-live-p) | |
| 681 (diary)))) | |
| 669 :group 'diary) | 682 :group 'diary) |
| 670 | 683 |
| 671 ;;;###autoload | 684 ;;;###autoload |
| 672 (defcustom european-calendar-display-form | 685 (defcustom european-calendar-display-form |
| 673 '((if dayname (concat dayname ", ")) day " " monthname " " year) | 686 '((if dayname (concat dayname ", ")) day " " monthname " " year) |