[emacs-wiki-discuss] Error when no diary entries exist for today

[pll+ew]

At least that's what I *think* this means :)

Signaling: (end-of-buffer)
  list-diary-entries((4 1 2004) 1)
  (progn (fset (quote message) (function* ...)) (list-diary-entries date 
no-of-days) (switch-to-buffer fancy-diary-buffer) (if (= ... 1) (setq entries 
"") (setq entries ...)) (kill-buffer fancy-diary-buffer) entries)
  (unwind-protect (progn (fset ... ...) (list-diary-entries date no-of-days) 
(switch-to-buffer fancy-diary-buffer) (if ... ... ...) (kill-buffer 
fancy-diary-buffer) entries) (if --letf-bound--44486 (fset ... 
--letf-save--44485) (fmakunbound ...)))
  (let* ((--letf-bound--44486 ...) (--letf-save--44485 ...)) (unwind-protect 
(progn ... ... ... ... ... entries) (if --letf-bound--44486 ... ...)))
  (letf ((... ...)) (list-diary-entries date no-of-days) (switch-to-buffer 
fancy-diary-buffer) (if (= ... 1) (setq entries "") (setq entries ...)) 
(kill-buffer fancy-diary-buffer) entries)
  (letf* ((... ...)) (list-diary-entries date no-of-days) (switch-to-buffer 
fancy-diary-buffer) (if (= ... 1) (setq entries "") (setq entries ...)) 
(kill-buffer fancy-diary-buffer) entries)
  (flet ((message ... ...)) (list-diary-entries date no-of-days) 
(switch-to-buffer fancy-diary-buffer) (if (= ... 1) (setq entries "") (setq 
entries ...)) (kill-buffer fancy-diary-buffer) entries)
  (let* ((fancy-diary-buffer "temporary-fancy-diary-buffer") (entries) 
(no-of-days ...) (diary-file ...)) (flet (...) (list-diary-entries date 
no-of-days) (switch-to-buffer fancy-diary-buffer) (if ... ... ...) (kill-buffer 
fancy-diary-buffer) entries))
  (save-window-excursion (let* (... ... ... ...) (flet ... ... ... ... ... 
entries)))
  planner-diary-get-diary-entries((4 1 2004) 1 "~/diary")
  (planner-diary-update-section (buffer-file-name) planner-diary-string 
(planner-diary-get-diary-entries (planner-filename-to-calendar-date ...) 
planner-diary-number-of-days planner-diary-file))
  planner-diary-insert-diary(nil)
  (if (and (string-match planner-date-regexp ...) (or force ...)) 
(planner-diary-insert-diary force) (when (interactive-p) (message "No day plan 
buffer or date is in the past.  No diary entries inserted.")))
  planner-diary-insert-diary-maybe(nil)
  (if planner-diary-use-diary (planner-diary-insert-diary-maybe force))
  (when planner-diary-use-diary (planner-diary-insert-diary-maybe force))
  planner-diary-insert-all-diaries-maybe()
  run-hooks(planner-diary-insert-all-diaries-maybe)
  (let ((file ...)) (if planner-use-other-window (find-file-other-window file) 
(find-file file)) (widen) (goto-char (point-min)) (run-hooks (quote 
planner-goto-hook)) t)
  (if (or (not just-show) (planner-page-exists-p date)) (let (...) (if 
planner-use-other-window ... ...) (widen) (goto-char ...) (run-hooks ...) t) 
(when (interactive-p) (message "No planner file for %s." date)) nil)
  planner-goto("2004.04.01")
  planner-goto-today()
  (if page (planner-goto page) (planner-goto-today))
  planner-create-note(nil)
  (save-window-excursion (planner-create-note page) (setq start 
(line-beginning-position)) (insert text) (save-restriction (narrow-to-region 
start ...) (run-hooks ...)) (when remember-save-after-remembering 
(save-restriction ...)) t)
  (let ((text ...) start) (save-window-excursion (planner-create-note page) 
(setq start ...) (insert text) (save-restriction ... ...) (when 
remember-save-after-remembering ...) t))
  remember-planner-append()
  run-hook-with-args-until-success(remember-planner-append)
  (save-restriction (narrow-to-region b e) (run-hook-with-args-until-success 
(quote remember-handler-functions)) (when (equal remember-buffer ...) 
(kill-buffer ...) (jump-to-register remember-register)))
  (let ((b ...) (e ...)) (save-restriction (narrow-to-region b e) 
(run-hook-with-args-until-success ...) (when ... ... ...)))
  remember-region(1 74)
  (lambda nil "Remember the contents of the current buffer." (interactive) 
(remember-region (point-min) (point-max)))()
  call-interactively(remember-buffer)
-- 
Seeya,
Paul

GPG Key fingerprint = 1660 FECC 5D21 D286 F853  E808 BB07 9239 53F1 28EE

         If you're not having fun, you're not doing it right!