[emacs-wiki-discuss] planner-save-buffers backtrace

[Jody Klymak]

Hi folks,

planner-save-buffers now gives me the backtrace below.  Any idea whats up?

Thanks,  Jody

Debugger entered--Lisp error: (error "Lisp nesting exceeds 
max-lisp-eval-depth")
  emacs-wiki-wiki-link-target("FlipLog")
  (let ((file ...)) (when file (if ... file ...)))
  (progn (let (...) (when file ...)))
  (unwind-protect (progn (let ... ...)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (let (...) (when file ...)))
  planner-link-base("FlipLog")
  (and (string-match emacs-wiki-name-regexp link-text) 
(planner-link-base link-text))
  (setq link (and (string-match emacs-wiki-name-regexp link-text) 
(planner-link-base link-text)))
  (progn (setq link (and ... ...)))
  (if link (progn (setq link ...)))
  (when link (setq link (and ... ...)))
  (let ((priority ...) (number ...) (status ...) (description ...) 
(case-fold-search nil) link-text link plan date) (when (= ... 0) (setq 
number nil)) (cond (... ... ... ...) (... ... ... ...) (... ... ... ...) 
(... ...)) (when link (setq link ...)) (unless (planner-local-page-p 
link) (setq link nil)) (if (string-match planner-date-regexp page-name) 
(progn ... ...) (setq plan ...) (setq date link)) (list page-name 
priority number status description link link-text plan date))
  (progn (let (... ... ... ... ... link-text link plan date) (when ... 
...) (cond ... ... ... ...) (when link ...) (unless ... ...) (if ... ... 
... ...) (list page-name priority number status description link 
link-text plan date)))
  (if (string-match "#\\([A-C]\\)\\([0-9]*\\)\\s-+\\(.\\)\\s-+\\(.+\\)" 
string) (progn (let ... ... ... ... ... ... ...)))
  (when (string-match 
"#\\([A-C]\\)\\([0-9]*\\)\\s-+\\(.\\)\\s-+\\(.+\\)" string) (let (... 
... ... ... ... link-text link plan date) (when ... ...) (cond ... ... 
... ...) (when link ...) (unless ... ...) (if ... ... ... ...) (list 
page-name priority number status description link link-text plan date)))
  (progn (when (string-match 
"#\\([A-C]\\)\\([0-9]*\\)\\s-+\\(.\\)\\s-+\\(.+\\)" string) (let ... ... 
... ... ... ... ...)))
  (with-planner (when (string-match 
"#\\([A-C]\\)\\([0-9]*\\)\\s-+\\(.\\)\\s-+\\(.+\\)" string) (let ... ... 
... ... ... ... ...)))
  planner-task-info-from-string("2005.06.18" #("#B   _ Figure out whats 
wrong with Tows 23--?? Fish 1 microcond : 
[[/Users/jklymak/flip/CtdProcessingNew/GridAll2.m]] {{Tasks:329}} 
(FlipLog)" 0 66 (fontified t) 66 68 (intangible t invisible t help-echo 
"/Users/jklymak/flip/CtdProcessingNew/GridAll2.m" mouse-face highlight 
keymap (keymap ... ... ... ... ... ... keymap ... ... ... ... ... ... 
... ... keymap ...) rear-nonsticky t face emacs-wiki-link-face fontified 
t) 68 115 (help-echo "/Users/jklymak/flip/CtdProcessingNew/GridAll2.m" 
mouse-face highlight keymap (keymap ... ... ... ... ... ... keymap ... 
... ... ... ... ... ... ... keymap ...) rear-nonsticky t face 
emacs-wiki-link-face fontified t) 115 117 (intangible t invisible t 
help-echo "/Users/jklymak/flip/CtdProcessingNew/GridAll2.m" mouse-face 
highlight keymap (keymap ... ... ... ... ... ... keymap ... ... ... ... 
... ... ... ... keymap ...) rear-nonsticky t face emacs-wiki-link-face 
fontified t) 117 118 (fontified t) 118 131 (help-echo #("{{Tasks:329}}" 
0 13 ...) keymap (keymap ... ... ... ... ... ... keymap ... ... ... ... 
... ... ... ... keymap ...) display (image :type png :file 
"/Users/jklymak/Pictures/id-small.png") fontified t) 131 133 (fontified 
t) 133 140 (help-echo "FlipLog" mouse-face highlight keymap (keymap ... 
... ... ... ... ... keymap ... ... ... ... ... ... ... ... keymap ...) 
rear-nonsticky t face emacs-wiki-link-face fontified t) 140 141 
(fontified t)))
  planner-current-task-info()
  (let* ((task-info ...) (task-link ...) (original ...)) (unless 
task-info (error "There is no task on the current line")) (if 
(planner-jump-to-linked-task task-info) (unless ... ... ...) (when ... 
... ...)))
  (let ((planner-tasks-file-behavior nil)) (beginning-of-line) (let* 
(... ... ...) (unless task-info ...) (if ... ... ...)))
  (prog1 (let (...) (beginning-of-line) (let* ... ... ...)) (when 
planner-tasks-file-behavior (planner-save-buffers live-buffers t)))
  (let ((live-buffers ...)) (prog1 (let ... ... ...) (when 
planner-tasks-file-behavior ...)))
  (save-restriction (let (...) (prog1 ... ...)))
  (save-window-excursion (save-restriction (let ... ...)))
  (with-planner-update-setup (beginning-of-line) (let* (... ... ...) 
(unless task-info ...) (if ... ... ...)))
  planner-update-task()
  (while (re-search-forward (concat ... "\\(.*?\\){{Tasks:[0-9]+}}") 
nil t) (planner-update-task) (forward-line 1))
  (save-excursion (goto-char (point-min)) (while (re-search-forward ... 
nil t) (planner-update-task) (forward-line 1)))
  planner-id-update-tasks-on-page()
  (progn (planner-id-update-tasks-on-page))
  (if planner-id-update-automatically (progn 
(planner-id-update-tasks-on-page)))
  (when planner-id-update-automatically (planner-id-update-tasks-on-page))
  planner-id-update-tasks-maybe()
  run-hook-with-args-until-success(planner-id-update-tasks-maybe)
  basic-save-buffer()
  save-buffer()
  (progn (save-buffer))
  (if (buffer-modified-p) (progn (save-buffer)))
  (when (buffer-modified-p) (save-buffer))
  (let ((planner-sort-tasks-automatically ...) 
(planner-renumber-tasks-automatically ...) 
(planner-align-tasks-automatically ...) 
(planner-renumber-notes-automatically ...) (planner-tasks-save-behavior 
nil) (planner-id-update-automatically ...)) (when (buffer-modified-p) 
(save-buffer)))
  (progn (let (... ... ... ... ... ...) (when ... ...)))
  (if (and (planner-derived-mode-p ...) (planner-page-name)) (progn 
(let ... ...)))
  (when (and (planner-derived-mode-p ...) (planner-page-name)) (let 
(... ... ... ... ... ...) (when ... ...)))
  (save-current-buffer (set-buffer buffer) (when (and ... ...) (let ... 
...)) (when (and buffer-list ...) (kill-buffer nil)))
  (with-current-buffer buffer (when (and ... ...) (let ... ...)) (when 
(and buffer-list ...) (kill-buffer nil)))
  (lambda (buffer) (with-current-buffer buffer (when ... ...) (when ... 
...)))(#<buffer 2005.06.18.txt>)
  mapcar((lambda (buffer) (with-current-buffer buffer (when ... ...) 
(when ... ...))) (#<buffer 2005.06.18.txt> #<buffer FlipLog.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>))
  planner-save-buffers((#<buffer FlipLog.txt> #<buffer 2005.06.18.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>) t)
  (progn (planner-save-buffers live-buffers t))
  (if planner-tasks-file-behavior (progn (planner-save-buffers 
live-buffers t)))
  (when planner-tasks-file-behavior (planner-save-buffers live-buffers t))
  (prog1 (let (...) (beginning-of-line) (let* ... ... ...)) (when 
planner-tasks-file-behavior (planner-save-buffers live-buffers t)))
  (let ((live-buffers ...)) (prog1 (let ... ... ...) (when 
planner-tasks-file-behavior ...)))
  (save-restriction (let (...) (prog1 ... ...)))
  (save-window-excursion (save-restriction (let ... ...)))
  (with-planner-update-setup (beginning-of-line) (let* (... ... ...) 
(unless task-info ...) (if ... ... ...)))
  planner-update-task()
  (while (re-search-forward (concat ... "\\(.*?\\){{Tasks:[0-9]+}}") 
nil t) (planner-update-task) (forward-line 1))
  (save-excursion (goto-char (point-min)) (while (re-search-forward ... 
nil t) (planner-update-task) (forward-line 1)))
  planner-id-update-tasks-on-page()
  (progn (planner-id-update-tasks-on-page))
  (if planner-id-update-automatically (progn 
(planner-id-update-tasks-on-page)))
  (when planner-id-update-automatically (planner-id-update-tasks-on-page))
  planner-id-update-tasks-maybe()
  run-hook-with-args-until-success(planner-id-update-tasks-maybe)
  basic-save-buffer()
  save-buffer()
  (progn (save-buffer))
  (if (buffer-modified-p) (progn (save-buffer)))
  (when (buffer-modified-p) (save-buffer))
  (let ((planner-sort-tasks-automatically ...) 
(planner-renumber-tasks-automatically ...) 
(planner-align-tasks-automatically ...) 
(planner-renumber-notes-automatically ...) (planner-tasks-save-behavior 
nil) (planner-id-update-automatically ...)) (when (buffer-modified-p) 
(save-buffer)))
  (progn (let (... ... ... ... ... ...) (when ... ...)))
  (if (and (planner-derived-mode-p ...) (planner-page-name)) (progn 
(let ... ...)))
  (when (and (planner-derived-mode-p ...) (planner-page-name)) (let 
(... ... ... ... ... ...) (when ... ...)))
  (save-current-buffer (set-buffer buffer) (when (and ... ...) (let ... 
...)) (when (and buffer-list ...) (kill-buffer nil)))
  (with-current-buffer buffer (when (and ... ...) (let ... ...)) (when 
(and buffer-list ...) (kill-buffer nil)))
  (lambda (buffer) (with-current-buffer buffer (when ... ...) (when ... 
...)))(#<buffer FlipLog.txt>)
  mapcar((lambda (buffer) (with-current-buffer buffer (when ... ...) 
(when ... ...))) (#<buffer FlipLog.txt> #<buffer 2005.06.18.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>))
  planner-save-buffers((#<buffer 2005.06.18.txt> #<buffer FlipLog.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>) t)
  (progn (planner-save-buffers live-buffers t))
  (if planner-tasks-file-behavior (progn (planner-save-buffers 
live-buffers t)))
  (when planner-tasks-file-behavior (planner-save-buffers live-buffers t))
  (prog1 (let (...) (beginning-of-line) (let* ... ... ...)) (when 
planner-tasks-file-behavior (planner-save-buffers live-buffers t)))
  (let ((live-buffers ...)) (prog1 (let ... ... ...) (when 
planner-tasks-file-behavior ...)))
  (save-restriction (let (...) (prog1 ... ...)))
  (save-window-excursion (save-restriction (let ... ...)))
  (with-planner-update-setup (beginning-of-line) (let* (... ... ...) 
(unless task-info ...) (if ... ... ...)))
  planner-update-task()
  (while (re-search-forward (concat ... "\\(.*?\\){{Tasks:[0-9]+}}") 
nil t) (planner-update-task) (forward-line 1))
  (save-excursion (goto-char (point-min)) (while (re-search-forward ... 
nil t) (planner-update-task) (forward-line 1)))
  planner-id-update-tasks-on-page()
  (progn (planner-id-update-tasks-on-page))
  (if planner-id-update-automatically (progn 
(planner-id-update-tasks-on-page)))
  (when planner-id-update-automatically (planner-id-update-tasks-on-page))
  planner-id-update-tasks-maybe()
  run-hook-with-args-until-success(planner-id-update-tasks-maybe)
  basic-save-buffer()
  save-buffer()
  (progn (save-buffer))
  (if (buffer-modified-p) (progn (save-buffer)))
  (when (buffer-modified-p) (save-buffer))
  (let ((planner-sort-tasks-automatically ...) 
(planner-renumber-tasks-automatically ...) 
(planner-align-tasks-automatically ...) 
(planner-renumber-notes-automatically ...) (planner-tasks-save-behavior 
nil) (planner-id-update-automatically ...)) (when (buffer-modified-p) 
(save-buffer)))
  (progn (let (... ... ... ... ... ...) (when ... ...)))
  (if (and (planner-derived-mode-p ...) (planner-page-name)) (progn 
(let ... ...)))
  (when (and (planner-derived-mode-p ...) (planner-page-name)) (let 
(... ... ... ... ... ...) (when ... ...)))
  (save-current-buffer (set-buffer buffer) (when (and ... ...) (let ... 
...)) (when (and buffer-list ...) (kill-buffer nil)))
  (with-current-buffer buffer (when (and ... ...) (let ... ...)) (when 
(and buffer-list ...) (kill-buffer nil)))
  (lambda (buffer) (with-current-buffer buffer (when ... ...) (when ... 
...)))(#<buffer 2005.06.18.txt>)
  mapcar((lambda (buffer) (with-current-buffer buffer (when ... ...) 
(when ... ...))) (#<buffer 2005.06.18.txt> #<buffer FlipLog.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>))
  planner-save-buffers((#<buffer FlipLog.txt> #<buffer 2005.06.18.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>) t)
  (progn (planner-save-buffers live-buffers t))
  (if planner-tasks-file-behavior (progn (planner-save-buffers 
live-buffers t)))
  (when planner-tasks-file-behavior (planner-save-buffers live-buffers t))
  (prog1 (let (...) (beginning-of-line) (let* ... ... ...)) (when 
planner-tasks-file-behavior (planner-save-buffers live-buffers t)))
  (let ((live-buffers ...)) (prog1 (let ... ... ...) (when 
planner-tasks-file-behavior ...)))
  (save-restriction (let (...) (prog1 ... ...)))
  (save-window-excursion (save-restriction (let ... ...)))
  (with-planner-update-setup (beginning-of-line) (let* (... ... ...) 
(unless task-info ...) (if ... ... ...)))
  planner-update-task()
  (while (re-search-forward (concat ... "\\(.*?\\){{Tasks:[0-9]+}}") 
nil t) (planner-update-task) (forward-line 1))
  (save-excursion (goto-char (point-min)) (while (re-search-forward ... 
nil t) (planner-update-task) (forward-line 1)))
  planner-id-update-tasks-on-page()
  (progn (planner-id-update-tasks-on-page))
  (if planner-id-update-automatically (progn 
(planner-id-update-tasks-on-page)))
  (when planner-id-update-automatically (planner-id-update-tasks-on-page))
  planner-id-update-tasks-maybe()
  run-hook-with-args-until-success(planner-id-update-tasks-maybe)
  basic-save-buffer()
  save-buffer()
  (progn (save-buffer))
  (if (buffer-modified-p) (progn (save-buffer)))
  (when (buffer-modified-p) (save-buffer))
  (let ((planner-sort-tasks-automatically ...) 
(planner-renumber-tasks-automatically ...) 
(planner-align-tasks-automatically ...) 
(planner-renumber-notes-automatically ...) (planner-tasks-save-behavior 
nil) (planner-id-update-automatically ...)) (when (buffer-modified-p) 
(save-buffer)))
  (progn (let (... ... ... ... ... ...) (when ... ...)))
  (if (and (planner-derived-mode-p ...) (planner-page-name)) (progn 
(let ... ...)))
  (when (and (planner-derived-mode-p ...) (planner-page-name)) (let 
(... ... ... ... ... ...) (when ... ...)))
  (save-current-buffer (set-buffer buffer) (when (and ... ...) (let ... 
...)) (when (and buffer-list ...) (kill-buffer nil)))
  (with-current-buffer buffer (when (and ... ...) (let ... ...)) (when 
(and buffer-list ...) (kill-buffer nil)))
  (lambda (buffer) (with-current-buffer buffer (when ... ...) (when ... 
...)))(#<buffer FlipLog.txt>)
  mapcar((lambda (buffer) (with-current-buffer buffer (when ... ...) 
(when ... ...))) (#<buffer FlipLog.txt> #<buffer 2005.06.18.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>))
  planner-save-buffers((#<buffer 2005.06.18.txt> #<buffer FlipLog.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>) t)
  (progn (planner-save-buffers live-buffers t))
  (if planner-tasks-file-behavior (progn (planner-save-buffers 
live-buffers t)))
  (when planner-tasks-file-behavior (planner-save-buffers live-buffers t))
  (prog1 (let (...) (beginning-of-line) (let* ... ... ...)) (when 
planner-tasks-file-behavior (planner-save-buffers live-buffers t)))
  (let ((live-buffers ...)) (prog1 (let ... ... ...) (when 
planner-tasks-file-behavior ...)))
  (save-restriction (let (...) (prog1 ... ...)))
  (save-window-excursion (save-restriction (let ... ...)))
  (with-planner-update-setup (beginning-of-line) (let* (... ... ...) 
(unless task-info ...) (if ... ... ...)))
  planner-update-task()
  (while (re-search-forward (concat ... "\\(.*?\\){{Tasks:[0-9]+}}") 
nil t) (planner-update-task) (forward-line 1))
  (save-excursion (goto-char (point-min)) (while (re-search-forward ... 
nil t) (planner-update-task) (forward-line 1)))
  planner-id-update-tasks-on-page()
  (progn (planner-id-update-tasks-on-page))
  (if planner-id-update-automatically (progn 
(planner-id-update-tasks-on-page)))
  (when planner-id-update-automatically (planner-id-update-tasks-on-page))
  planner-id-update-tasks-maybe()
  run-hook-with-args-until-success(planner-id-update-tasks-maybe)
  basic-save-buffer()
  save-buffer()
  (progn (save-buffer))
  (if (buffer-modified-p) (progn (save-buffer)))
  (when (buffer-modified-p) (save-buffer))
  (let ((planner-sort-tasks-automatically ...) 
(planner-renumber-tasks-automatically ...) 
(planner-align-tasks-automatically ...) 
(planner-renumber-notes-automatically ...) (planner-tasks-save-behavior 
nil) (planner-id-update-automatically ...)) (when (buffer-modified-p) 
(save-buffer)))
  (progn (let (... ... ... ... ... ...) (when ... ...)))
  (if (and (planner-derived-mode-p ...) (planner-page-name)) (progn 
(let ... ...)))
  (when (and (planner-derived-mode-p ...) (planner-page-name)) (let 
(... ... ... ... ... ...) (when ... ...)))
  (save-current-buffer (set-buffer buffer) (when (and ... ...) (let ... 
...)) (when (and buffer-list ...) (kill-buffer nil)))
  (with-current-buffer buffer (when (and ... ...) (let ... ...)) (when 
(and buffer-list ...) (kill-buffer nil)))
  (lambda (buffer) (with-current-buffer buffer (when ... ...) (when ... 
...)))(#<buffer 2005.06.18.txt>)
  mapcar((lambda (buffer) (with-current-buffer buffer (when ... ...) 
(when ... ...))) (#<buffer 2005.06.18.txt> #<buffer FlipLog.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>))
  planner-save-buffers((#<buffer FlipLog.txt> #<buffer 2005.06.18.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>) t)
  (progn (planner-save-buffers live-buffers t))
  (if planner-tasks-file-behavior (progn (planner-save-buffers 
live-buffers t)))
  (when planner-tasks-file-behavior (planner-save-buffers live-buffers t))
  (prog1 (let (...) (beginning-of-line) (let* ... ... ...)) (when 
planner-tasks-file-behavior (planner-save-buffers live-buffers t)))
  (let ((live-buffers ...)) (prog1 (let ... ... ...) (when 
planner-tasks-file-behavior ...)))
  (save-restriction (let (...) (prog1 ... ...)))
  (save-window-excursion (save-restriction (let ... ...)))
  (with-planner-update-setup (beginning-of-line) (let* (... ... ...) 
(unless task-info ...) (if ... ... ...)))
  planner-update-task()
  (while (re-search-forward (concat ... "\\(.*?\\){{Tasks:[0-9]+}}") 
nil t) (planner-update-task) (forward-line 1))
  (save-excursion (goto-char (point-min)) (while (re-search-forward ... 
nil t) (planner-update-task) (forward-line 1)))
  planner-id-update-tasks-on-page()
  (progn (planner-id-update-tasks-on-page))
  (if planner-id-update-automatically (progn 
(planner-id-update-tasks-on-page)))
  (when planner-id-update-automatically (planner-id-update-tasks-on-page))
  planner-id-update-tasks-maybe()
  run-hook-with-args-until-success(planner-id-update-tasks-maybe)
  basic-save-buffer()
  save-buffer()
  (progn (save-buffer))
  (if (buffer-modified-p) (progn (save-buffer)))
  (when (buffer-modified-p) (save-buffer))
  (let ((planner-sort-tasks-automatically ...) 
(planner-renumber-tasks-automatically ...) 
(planner-align-tasks-automatically ...) 
(planner-renumber-notes-automatically ...) (planner-tasks-save-behavior 
nil) (planner-id-update-automatically ...)) (when (buffer-modified-p) 
(save-buffer)))
  (progn (let (... ... ... ... ... ...) (when ... ...)))
  (if (and (planner-derived-mode-p ...) (planner-page-name)) (progn 
(let ... ...)))
  (when (and (planner-derived-mode-p ...) (planner-page-name)) (let 
(... ... ... ... ... ...) (when ... ...)))
  (save-current-buffer (set-buffer buffer) (when (and ... ...) (let ... 
...)) (when (and buffer-list ...) (kill-buffer nil)))
  (with-current-buffer buffer (when (and ... ...) (let ... ...)) (when 
(and buffer-list ...) (kill-buffer nil)))
  (lambda (buffer) (with-current-buffer buffer (when ... ...) (when ... 
...)))(#<buffer FlipLog.txt>)
  mapcar((lambda (buffer) (with-current-buffer buffer (when ... ...) 
(when ... ...))) (#<buffer FlipLog.txt> #<buffer 2005.06.18.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>))
  planner-save-buffers((#<buffer 2005.06.18.txt> #<buffer FlipLog.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>) t)
  (progn (planner-save-buffers live-buffers t))
  (if planner-tasks-file-behavior (progn (planner-save-buffers 
live-buffers t)))
  (when planner-tasks-file-behavior (planner-save-buffers live-buffers t))
  (prog1 (let (...) (beginning-of-line) (let* ... ... ...)) (when 
planner-tasks-file-behavior (planner-save-buffers live-buffers t)))
  (let ((live-buffers ...)) (prog1 (let ... ... ...) (when 
planner-tasks-file-behavior ...)))
  (save-restriction (let (...) (prog1 ... ...)))
  (save-window-excursion (save-restriction (let ... ...)))
  (with-planner-update-setup (beginning-of-line) (let* (... ... ...) 
(unless task-info ...) (if ... ... ...)))
  planner-update-task()
  (while (re-search-forward (concat ... "\\(.*?\\){{Tasks:[0-9]+}}") 
nil t) (planner-update-task) (forward-line 1))
  (save-excursion (goto-char (point-min)) (while (re-search-forward ... 
nil t) (planner-update-task) (forward-line 1)))
  planner-id-update-tasks-on-page()
  (progn (planner-id-update-tasks-on-page))
  (if planner-id-update-automatically (progn 
(planner-id-update-tasks-on-page)))
  (when planner-id-update-automatically (planner-id-update-tasks-on-page))
  planner-id-update-tasks-maybe()
  run-hook-with-args-until-success(planner-id-update-tasks-maybe)
  basic-save-buffer()
  save-buffer()
  (progn (save-buffer))
  (if (buffer-modified-p) (progn (save-buffer)))
  (when (buffer-modified-p) (save-buffer))
  (let ((planner-sort-tasks-automatically ...) 
(planner-renumber-tasks-automatically ...) 
(planner-align-tasks-automatically ...) 
(planner-renumber-notes-automatically ...) (planner-tasks-save-behavior 
nil) (planner-id-update-automatically ...)) (when (buffer-modified-p) 
(save-buffer)))
  (progn (let (... ... ... ... ... ...) (when ... ...)))
  (if (and (planner-derived-mode-p ...) (planner-page-name)) (progn 
(let ... ...)))
  (when (and (planner-derived-mode-p ...) (planner-page-name)) (let 
(... ... ... ... ... ...) (when ... ...)))
  (save-current-buffer (set-buffer buffer) (when (and ... ...) (let ... 
...)) (when (and buffer-list ...) (kill-buffer nil)))
  (with-current-buffer buffer (when (and ... ...) (let ... ...)) (when 
(and buffer-list ...) (kill-buffer nil)))
  (lambda (buffer) (with-current-buffer buffer (when ... ...) (when ... 
...)))(#<buffer 2005.06.18.txt>)
  mapcar((lambda (buffer) (with-current-buffer buffer (when ... ...) 
(when ... ...))) (#<buffer 2005.06.18.txt> #<buffer FlipLog.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>))
  planner-save-buffers((#<buffer FlipLog.txt> #<buffer 2005.06.18.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>) t)
  (progn (planner-save-buffers live-buffers t))
  (if planner-tasks-file-behavior (progn (planner-save-buffers 
live-buffers t)))
  (when planner-tasks-file-behavior (planner-save-buffers live-buffers t))
  (prog1 (let (...) (beginning-of-line) (let* ... ... ...)) (when 
planner-tasks-file-behavior (planner-save-buffers live-buffers t)))
  (let ((live-buffers ...)) (prog1 (let ... ... ...) (when 
planner-tasks-file-behavior ...)))
  (save-restriction (let (...) (prog1 ... ...)))
  (save-window-excursion (save-restriction (let ... ...)))
  (with-planner-update-setup (beginning-of-line) (let* (... ... ...) 
(unless task-info ...) (if ... ... ...)))
  planner-update-task()
  (while (re-search-forward (concat ... "\\(.*?\\){{Tasks:[0-9]+}}") 
nil t) (planner-update-task) (forward-line 1))
  (save-excursion (goto-char (point-min)) (while (re-search-forward ... 
nil t) (planner-update-task) (forward-line 1)))
  planner-id-update-tasks-on-page()
  (progn (planner-id-update-tasks-on-page))
  (if planner-id-update-automatically (progn 
(planner-id-update-tasks-on-page)))
  (when planner-id-update-automatically (planner-id-update-tasks-on-page))
  planner-id-update-tasks-maybe()
  run-hook-with-args-until-success(planner-id-update-tasks-maybe)
  basic-save-buffer()
  save-buffer()
  (progn (save-buffer))
  (if (buffer-modified-p) (progn (save-buffer)))
  (when (buffer-modified-p) (save-buffer))
  (let ((planner-sort-tasks-automatically ...) 
(planner-renumber-tasks-automatically ...) 
(planner-align-tasks-automatically ...) 
(planner-renumber-notes-automatically ...) (planner-tasks-save-behavior 
nil) (planner-id-update-automatically ...)) (when (buffer-modified-p) 
(save-buffer)))
  (progn (let (... ... ... ... ... ...) (when ... ...)))
  (if (and (planner-derived-mode-p ...) (planner-page-name)) (progn 
(let ... ...)))
  (when (and (planner-derived-mode-p ...) (planner-page-name)) (let 
(... ... ... ... ... ...) (when ... ...)))
  (save-current-buffer (set-buffer buffer) (when (and ... ...) (let ... 
...)) (when (and buffer-list ...) (kill-buffer nil)))
  (with-current-buffer buffer (when (and ... ...) (let ... ...)) (when 
(and buffer-list ...) (kill-buffer nil)))
  (lambda (buffer) (with-current-buffer buffer (when ... ...) (when ... 
...)))(#<buffer FlipLog.txt>)
  mapcar((lambda (buffer) (with-current-buffer buffer (when ... ...) 
(when ... ...))) (#<buffer FlipLog.txt> #<buffer 2005.06.18.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>))
  planner-save-buffers((#<buffer 2005.06.18.txt> #<buffer FlipLog.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>) t)
  (progn (planner-save-buffers live-buffers t))
  (if planner-tasks-file-behavior (progn (planner-save-buffers 
live-buffers t)))
  (when planner-tasks-file-behavior (planner-save-buffers live-buffers t))
  (prog1 (let (...) (beginning-of-line) (let* ... ... ...)) (when 
planner-tasks-file-behavior (planner-save-buffers live-buffers t)))
  (let ((live-buffers ...)) (prog1 (let ... ... ...) (when 
planner-tasks-file-behavior ...)))
  (save-restriction (let (...) (prog1 ... ...)))
  (save-window-excursion (save-restriction (let ... ...)))
  (with-planner-update-setup (beginning-of-line) (let* (... ... ...) 
(unless task-info ...) (if ... ... ...)))
  planner-update-task()
  (while (re-search-forward (concat ... "\\(.*?\\){{Tasks:[0-9]+}}") 
nil t) (planner-update-task) (forward-line 1))
  (save-excursion (goto-char (point-min)) (while (re-search-forward ... 
nil t) (planner-update-task) (forward-line 1)))
  planner-id-update-tasks-on-page()
  (progn (planner-id-update-tasks-on-page))
  (if planner-id-update-automatically (progn 
(planner-id-update-tasks-on-page)))
  (when planner-id-update-automatically (planner-id-update-tasks-on-page))
  planner-id-update-tasks-maybe()
  run-hook-with-args-until-success(planner-id-update-tasks-maybe)
  basic-save-buffer()
  save-buffer()
  (progn (save-buffer))
  (if (buffer-modified-p) (progn (save-buffer)))
  (when (buffer-modified-p) (save-buffer))
  (let ((planner-sort-tasks-automatically ...) 
(planner-renumber-tasks-automatically ...) 
(planner-align-tasks-automatically ...) 
(planner-renumber-notes-automatically ...) (planner-tasks-save-behavior 
nil) (planner-id-update-automatically ...)) (when (buffer-modified-p) 
(save-buffer)))
  (progn (let (... ... ... ... ... ...) (when ... ...)))
  (if (and (planner-derived-mode-p ...) (planner-page-name)) (progn 
(let ... ...)))
  (when (and (planner-derived-mode-p ...) (planner-page-name)) (let 
(... ... ... ... ... ...) (when ... ...)))
  (save-current-buffer (set-buffer buffer) (when (and ... ...) (let ... 
...)) (when (and buffer-list ...) (kill-buffer nil)))
  (with-current-buffer buffer (when (and ... ...) (let ... ...)) (when 
(and buffer-list ...) (kill-buffer nil)))
  (lambda (buffer) (with-current-buffer buffer (when ... ...) (when ... 
...)))(#<buffer 2005.06.18.txt>)
  mapcar((lambda (buffer) (with-current-buffer buffer (when ... ...) 
(when ... ...))) (#<buffer 2005.06.18.txt> #<buffer FlipLog.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>))
  planner-save-buffers((#<buffer FlipLog.txt> #<buffer 2005.06.18.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>) t)
  (progn (planner-save-buffers live-buffers t))
  (if planner-tasks-file-behavior (progn (planner-save-buffers 
live-buffers t)))
  (when planner-tasks-file-behavior (planner-save-buffers live-buffers t))
  (prog1 (let (...) (beginning-of-line) (let* ... ... ...)) (when 
planner-tasks-file-behavior (planner-save-buffers live-buffers t)))
  (let ((live-buffers ...)) (prog1 (let ... ... ...) (when 
planner-tasks-file-behavior ...)))
  (save-restriction (let (...) (prog1 ... ...)))
  (save-window-excursion (save-restriction (let ... ...)))
  (with-planner-update-setup (beginning-of-line) (let* (... ... ...) 
(unless task-info ...) (if ... ... ...)))
  planner-update-task()
  (while (re-search-forward (concat ... "\\(.*?\\){{Tasks:[0-9]+}}") 
nil t) (planner-update-task) (forward-line 1))
  (save-excursion (goto-char (point-min)) (while (re-search-forward ... 
nil t) (planner-update-task) (forward-line 1)))
  planner-id-update-tasks-on-page()
  (progn (planner-id-update-tasks-on-page))
  (if planner-id-update-automatically (progn 
(planner-id-update-tasks-on-page)))
  (when planner-id-update-automatically (planner-id-update-tasks-on-page))
  planner-id-update-tasks-maybe()
  run-hook-with-args-until-success(planner-id-update-tasks-maybe)
  basic-save-buffer()
  save-buffer()
  (progn (save-buffer))
  (if (buffer-modified-p) (progn (save-buffer)))
  (when (buffer-modified-p) (save-buffer))
  (let ((planner-sort-tasks-automatically ...) 
(planner-renumber-tasks-automatically ...) 
(planner-align-tasks-automatically ...) 
(planner-renumber-notes-automatically ...) (planner-tasks-save-behavior 
nil) (planner-id-update-automatically ...)) (when (buffer-modified-p) 
(save-buffer)))
  (progn (let (... ... ... ... ... ...) (when ... ...)))
  (if (and (planner-derived-mode-p ...) (planner-page-name)) (progn 
(let ... ...)))
  (when (and (planner-derived-mode-p ...) (planner-page-name)) (let 
(... ... ... ... ... ...) (when ... ...)))
  (save-current-buffer (set-buffer buffer) (when (and ... ...) (let ... 
...)) (when (and buffer-list ...) (kill-buffer nil)))
  (with-current-buffer buffer (when (and ... ...) (let ... ...)) (when 
(and buffer-list ...) (kill-buffer nil)))
  (lambda (buffer) (with-current-buffer buffer (when ... ...) (when ... 
...)))(#<buffer FlipLog.txt>)
  mapcar((lambda (buffer) (with-current-buffer buffer (when ... ...) 
(when ... ...))) (#<buffer FlipLog.txt> #<buffer 2005.06.18.txt> 
#<buffer  *Minibuf-1*> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>))
  planner-save-buffers((#<buffer 2005.06.18.txt> #<buffer  *Minibuf-1*> 
#<buffer FlipLog.txt> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>) t)
  (progn (planner-save-buffers live-buffers t))
  (if planner-tasks-file-behavior (progn (planner-save-buffers 
live-buffers t)))
  (when planner-tasks-file-behavior (planner-save-buffers live-buffers t))
  (prog1 (let (...) (beginning-of-line) (let* ... ... ...)) (when 
planner-tasks-file-behavior (planner-save-buffers live-buffers t)))
  (let ((live-buffers ...)) (prog1 (let ... ... ...) (when 
planner-tasks-file-behavior ...)))
  (save-restriction (let (...) (prog1 ... ...)))
  (save-window-excursion (save-restriction (let ... ...)))
  (with-planner-update-setup (beginning-of-line) (let* (... ... ...) 
(unless task-info ...) (if ... ... ...)))
  planner-update-task()
  (while (re-search-forward (concat ... "\\(.*?\\){{Tasks:[0-9]+}}") 
nil t) (planner-update-task) (forward-line 1))
  (save-excursion (goto-char (point-min)) (while (re-search-forward ... 
nil t) (planner-update-task) (forward-line 1)))
  planner-id-update-tasks-on-page()
  (progn (planner-id-update-tasks-on-page))
  (if planner-id-update-automatically (progn 
(planner-id-update-tasks-on-page)))
  (when planner-id-update-automatically (planner-id-update-tasks-on-page))
  planner-id-update-tasks-maybe()
  run-hook-with-args-until-success(planner-id-update-tasks-maybe)
  basic-save-buffer()
  save-buffer()
  (progn (save-buffer))
  (if (buffer-modified-p) (progn (save-buffer)))
  (when (buffer-modified-p) (save-buffer))
  (let ((planner-sort-tasks-automatically ...) 
(planner-renumber-tasks-automatically ...) 
(planner-align-tasks-automatically ...) 
(planner-renumber-notes-automatically ...) (planner-tasks-save-behavior 
nil) (planner-id-update-automatically ...)) (when (buffer-modified-p) 
(save-buffer)))
  (progn (let (... ... ... ... ... ...) (when ... ...)))
  (if (and (planner-derived-mode-p ...) (planner-page-name)) (progn 
(let ... ...)))
  (when (and (planner-derived-mode-p ...) (planner-page-name)) (let 
(... ... ... ... ... ...) (when ... ...)))
  (save-current-buffer (set-buffer buffer) (when (and ... ...) (let ... 
...)) (when (and buffer-list ...) (kill-buffer nil)))
  (with-current-buffer buffer (when (and ... ...) (let ... ...)) (when 
(and buffer-list ...) (kill-buffer nil)))
  (lambda (buffer) (with-current-buffer buffer (when ... ...) (when ... 
...)))(#<buffer 2005.06.18.txt>)
  mapcar((lambda (buffer) (with-current-buffer buffer (when ... ...) 
(when ... ...))) (#<buffer 2005.06.18.txt> #<buffer  *Minibuf-1*> 
#<buffer FlipLog.txt> #<buffer 2005.06.17.txt> #<buffer MusicToGet.txt> 
#<buffer RevelleLog.txt> #<buffer DailyThoughts.txt> #<buffer *scratch*> 
#<buffer  *Minibuf-0*> #<buffer *Messages*> #<buffer  *Echo Area 0*> 
#<buffer  *Echo Area 1*> #<buffer  *code-conversion-work*> #<buffer 
.bbdb> #<buffer diary> #<buffer .diary.cyclic-tasks> #<buffer 
*Completions*>))
  planner-save-buffers()
  (save-window-excursion (planner-update-note) (planner-save-buffers))
  (save-excursion (save-window-excursion (planner-update-note) 
(planner-save-buffers)))
  jmk-planner-save-buffers()
  call-interactively(jmk-planner-save-buffers)