[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[emacs-wiki-discuss] Error when no diary entries exist for today
From: |
pll+ew |
Subject: |
[emacs-wiki-discuss] Error when no diary entries exist for today |
Date: |
Thu, 01 Apr 2004 13:52:12 -0500 |
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!
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [emacs-wiki-discuss] Error when no diary entries exist for today,
pll+ew <=