[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[emacs-wiki-discuss] Patch to planner-diary.el
From: |
Travis B. Hartwell |
Subject: |
[emacs-wiki-discuss] Patch to planner-diary.el |
Date: |
Mon, 26 Apr 2004 03:19:40 -0600 |
User-agent: |
Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3 (gnu/linux) |
I updated my planner-dev tree tonight and it broke inserting the
cal-desk-calendar in my planner pages. Attached is a diff created
with tla diff that fixes this. Is this the proper place to send these
patches?
Travis
--- orig/planner-diary.el
+++ mod/planner-diary.el
@@ -378,7 +378,7 @@
;; planner-diary-get-appts-entries needs to be rewritten.
;; planner-diary-get-[public/private/cal-desk]-entries call
;; planner-diary-get-diary-entries.
-(defun planner-diary-get-diary-entries (date &optional no-of-days file)
+(defun planner-diary-get-diary-entries (date &optional no-of-days file
use-cal-desk)
"Get the diary entries for DATE and the following NO-OF-DAYS days from FILE.
DATE is a list (month day year). NO-OF-DAYS defaults to
`planner-diary-number-of-days'. FILE defaults to
@@ -386,7 +386,10 @@
(save-window-excursion
(let* ((fancy-diary-buffer "temporary-fancy-diary-buffer")
(entries)
- (diary-display-hook '(sort-diary-entries fancy-diary-display))
+ (diary-display-hook
+ (if use-cal-desk
+ '(sort-diary-entries fancy-diary-display
fancy-schedule-display-desk-calendar)
+ '(sort-diary-entries fancy-diary-display)))
(no-of-days (or no-of-days planner-diary-number-of-days))
(diary-file (or file planner-diary-file)))
(list-diary-entries date no-of-days)
@@ -419,7 +422,8 @@
(or no-of-days
planner-diary-cal-desk-number-of-days)
(or file
- planner-diary-cal-desk-file)))
+ planner-diary-cal-desk-file)
+ t))
;;; TODO: Merge the following two functions into one:
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [emacs-wiki-discuss] Patch to planner-diary.el,
Travis B. Hartwell <=