diff options
| author | Glenn Morris | 2010-11-20 14:29:35 -0800 |
|---|---|---|
| committer | Glenn Morris | 2010-11-20 14:29:35 -0800 |
| commit | 89bb5d15e647e28b07d7164a8c2afa112c6d8f7f (patch) | |
| tree | c0c8f26cc33f6c2c816b591e6229ad09dee5f860 | |
| parent | c11cc37a0a1d16832f9794498ac0acea2d9da4fb (diff) | |
| download | emacs-89bb5d15e647e28b07d7164a8c2afa112c6d8f7f.tar.gz emacs-89bb5d15e647e28b07d7164a8c2afa112c6d8f7f.zip | |
diary-lib comments.
| -rw-r--r-- | lisp/calendar/diary-lib.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 4c485a7c47b..31fd9897b56 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | ;;; diary-lib.el --- diary functions | 1 | ;;; diary-lib.el --- diary functions |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1989, 1990, 1992, 1993, 1994, 1995, 2001, 2002, 2003, | 3 | ;; Copyright (C) 1989, 1990, 1992, 1993, 1994, 1995, 2001, 2002, 2003, |
| 4 | ;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | 4 | ;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
| 5 | ;; Free Software Foundation, Inc. | ||
| 5 | 6 | ||
| 6 | ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> | 7 | ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> |
| 7 | ;; Maintainer: Glenn Morris <rgm@gnu.org> | 8 | ;; Maintainer: Glenn Morris <rgm@gnu.org> |
| @@ -2331,6 +2332,7 @@ return a font-lock pattern matching array of MONTHS and marking SYMBOL." | |||
| 2331 | 2332 | ||
| 2332 | ;;; Fancy Diary Mode. | 2333 | ;;; Fancy Diary Mode. |
| 2333 | 2334 | ||
| 2335 | ;; FIXME does not update upon changes to the name-arrays. | ||
| 2334 | (defvar diary-fancy-date-pattern | 2336 | (defvar diary-fancy-date-pattern |
| 2335 | (concat | 2337 | (concat |
| 2336 | (let ((dayname (diary-name-pattern calendar-day-name-array nil t)) | 2338 | (let ((dayname (diary-name-pattern calendar-day-name-array nil t)) |
| @@ -2433,9 +2435,6 @@ message contains an appointment, don't make a diary entry." | |||
| 2433 | (setq format-string (cdr (nth i diary-outlook-formats))) | 2435 | (setq format-string (cdr (nth i diary-outlook-formats))) |
| 2434 | (save-excursion | 2436 | (save-excursion |
| 2435 | (save-window-excursion | 2437 | (save-window-excursion |
| 2436 | ;; Fixme: References to optional fields in the format | ||
| 2437 | ;; are treated literally, not replaced by the empty | ||
| 2438 | ;; string. I think this is an Emacs bug. | ||
| 2439 | (diary-make-entry | 2438 | (diary-make-entry |
| 2440 | (format (replace-match (if (functionp format-string) | 2439 | (format (replace-match (if (functionp format-string) |
| 2441 | (funcall format-string body) | 2440 | (funcall format-string body) |
| @@ -2513,5 +2512,4 @@ user is asked to confirm its addition." | |||
| 2513 | 2512 | ||
| 2514 | (provide 'diary-lib) | 2513 | (provide 'diary-lib) |
| 2515 | 2514 | ||
| 2516 | ;; arch-tag: 22dd506e-2e33-410d-9ae1-095a0c1b2010 | ||
| 2517 | ;;; diary-lib.el ends here | 2515 | ;;; diary-lib.el ends here |