Mercurial > emacs
comparison lisp/calendar/diary-lib.el @ 54757:8c93a61e3b54
(diary-mode, fancy-diary-display-mode): Derive from fundamental-mode
rather than text-mode.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 08 Apr 2004 16:22:43 +0000 |
| parents | a059a7176bbd |
| children | c51143d3c644 |
comparison
equal
deleted
inserted
replaced
| 54756:547964d81317 | 54757:8c93a61e3b54 |
|---|---|
| 1725 (lambda (x) (> x 0))) | 1725 (lambda (x) (> x 0))) |
| 1726 (calendar-date-string (calendar-cursor-to-date t) nil t)) | 1726 (calendar-date-string (calendar-cursor-to-date t) nil t)) |
| 1727 arg))) | 1727 arg))) |
| 1728 | 1728 |
| 1729 ;;;###autoload | 1729 ;;;###autoload |
| 1730 (define-derived-mode diary-mode text-mode | 1730 (define-derived-mode diary-mode fundamental-mode |
| 1731 "Diary" | 1731 "Diary" |
| 1732 "Major mode for editing the diary file." | 1732 "Major mode for editing the diary file." |
| 1733 (set (make-local-variable 'font-lock-defaults) | 1733 (set (make-local-variable 'font-lock-defaults) |
| 1734 '(diary-font-lock-keywords t))) | 1734 '(diary-font-lock-keywords t))) |
| 1735 | 1735 |
| 1736 (define-derived-mode fancy-diary-display-mode text-mode | 1736 (define-derived-mode fancy-diary-display-mode fundamental-mode |
| 1737 "Diary" | 1737 "Diary" |
| 1738 "Major mode used while displaying diary entries using Fancy Display." | 1738 "Major mode used while displaying diary entries using Fancy Display." |
| 1739 (set (make-local-variable 'font-lock-defaults) | 1739 (set (make-local-variable 'font-lock-defaults) |
| 1740 '(fancy-diary-font-lock-keywords t)) | 1740 '(fancy-diary-font-lock-keywords t)) |
| 1741 (define-key (current-local-map) "q" 'quit-window)) | 1741 (define-key (current-local-map) "q" 'quit-window)) |