[emacs-wiki-discuss] Patch to planner-diary.el

[Travis B. Hartwell]

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: