[emacs-wiki-discuss] planner-accomplishments errors

[pll+ew]

Hi folks,

I seem to be unable to use planner-accomplishments.  If I try M-x 
planner-accomplishments-show, I get this backtrace:

Signaling: (void-function derived-mode-p)
  (derived-mode-p (quote planner-mode))
  (and (derived-mode-p (quote planner-mode)) (planner-page-name))
  (let ((page ...) (data ...)) (when page (with-current-buffer ... ... ... ... 
...)))
  (lambda nil "Display a buffer with the current page's accomplishment report." 
(interactive) (let (... ...) (when page ...)))()
  call-interactively(planner-accomplishments-show)
  command-execute(planner-accomplishments-show t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)


If I try planner-accomplishments-update, I get this (warning, LONG) :


Signaling: (wrong-type-argument integer-or-marker-p "\\(\\s-*\\)|")
  narrow-to-region(362 "\\(\\s-*\\)|")
  (save-restriction (narrow-to-region begin end) (untabify (point-min) 
(point-max)) (setq fullexp (concat regexp ",")) (save-excursion 
(get-buffer-create "  *arx-buf*  *") (set-buffer "  *arx-buf*  *") 
(erase-buffer) (insert fullexp) (goto-char ...) (while ... ...) (setq fullexp 
...)) (while (setq end-pos ...) (setq end-pos ...) (setq min-column 0 min-char 
9999) (setq regexp ...) (goto-char ...) (while ... ... ...) (goto-char ...) 
(setq min-column ...) (while ... ... ...) (setq last-start-column ... start-pos 
...)))
  (save-excursion (save-restriction (narrow-to-region begin end) (untabify ... 
...) (setq fullexp ...) (save-excursion ... ... ... ... ... ... ...) (while ... 
... ... ... ... ... ... ... ... ...)))
  (let (min-column min-char (start-pos 0) end-pos fullexp (old-case-fold-search 
case-fold-search) (last-start-column 0) sep-string) (setq case-fold-search 
fold-case) (save-excursion (save-restriction ... ... ... ... ...)) (setq 
case-fold-search old-case-fold-search))
  align-regexp(1 362 "\\(\\s-*\\)|" 1 1 t)
  (if (fboundp (quote align-regexp)) (align-regexp (point-min) (point-max) 
"\\(\\s-*\\)|" 1 1 t))
  (when (fboundp (quote align-regexp)) (align-regexp (point-min) (point-max) 
"\\(\\s-*\\)|" 1 1 t))
  (save-current-buffer (set-buffer temp-buffer) (insert "Link ") (mapcar 
(lambda ... ...) planner-accomplishments-status-display) (insert " | Total\n") 
(setq displayed-status (nreverse displayed-status)) (mapcar (lambda ... ... ... 
...) links) (insert "Total ") (let (...) (mapcar ... displayed-status) (insert 
...)) (when (fboundp ...) (align-regexp ... ... "\\(\\s-*\\)|" 1 1 t)) 
(buffer-string))
  (with-current-buffer temp-buffer (insert "Link ") (mapcar (lambda ... ...) 
planner-accomplishments-status-display) (insert " | Total\n") (setq 
displayed-status (nreverse displayed-status)) (mapcar (lambda ... ... ... ...) 
links) (insert "Total ") (let (...) (mapcar ... displayed-status) (insert ...)) 
(when (fboundp ...) (align-regexp ... ... "\\(\\s-*\\)|" 1 1 t)) 
(buffer-string))
  (unwind-protect (with-current-buffer temp-buffer (insert "Link ") (mapcar ... 
planner-accomplishments-status-display) (insert " | Total\n") (setq 
displayed-status ...) (mapcar ... links) (insert "Total ") (let ... ... ...) 
(when ... ...) (buffer-string)) (and (buffer-name temp-buffer) (kill-buffer 
temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... 
... ... ... ... ... ... ... ...) (and ... ...)))
  (with-temp-buffer (insert "Link ") (mapcar (lambda ... ...) 
planner-accomplishments-status-display) (insert " | Total\n") (setq 
displayed-status (nreverse displayed-status)) (mapcar (lambda ... ... ... ...) 
links) (insert "Total ") (let (...) (mapcar ... displayed-status) (insert ...)) 
(when (fboundp ...) (align-regexp ... ... "\\(\\s-*\\)|" 1 1 t)) 
(buffer-string))
  (let ((links ...) (status ...) displayed-status) (setq links (sort links 
...)) (with-temp-buffer (insert "Link ") (mapcar ... 
planner-accomplishments-status-display) (insert " | Total\n") (setq 
displayed-status ...) (mapcar ... links) (insert "Total ") (let ... ... ...) 
(when ... ...) (buffer-string)))
  planner-accomplishments-format-table((((nil . "_") . 2) (("2004.06.08" . "_") 
. 1) (("LapTops" . "o") . 1) (("ThingsToOrder" . "_") . 6) (("AssetInventory" . 
"_") . 2) (("OpsMtg20040726" . "_") . 1) (("PriorityShuffle" . "_") . 3) 
(("LapTops" . "_") . 1) (("TreoMail" . "X") . 2) (("DesktopHelp" . "_") . 1) 
(("AfsProject" . "_") . 1)))
  (insert "* " planner-accomplishments-section "\n\n" 
(planner-accomplishments-format-table (planner-accomplishments-extract-data)) 
"\n")
  (progn (delete-region (point-min) (point-max)) (insert "* " 
planner-accomplishments-section "\n\n" (planner-accomplishments-format-table 
...) "\n") nil)
  (if (planner-narrow-to-section planner-accomplishments-section) (progn 
(delete-region ... ...) (insert "* " planner-accomplishments-section "\n\n" ... 
"\n") nil))
  (when (planner-narrow-to-section planner-accomplishments-section) 
(delete-region (point-min) (point-max)) (insert "* " 
planner-accomplishments-section "\n\n" (planner-accomplishments-format-table 
...) "\n") nil)
  (save-restriction (when (planner-narrow-to-section 
planner-accomplishments-section) (delete-region ... ...) (insert "* " 
planner-accomplishments-section "\n\n" ... "\n") nil))
  (save-excursion (save-restriction (when ... ... ... nil)))
  (lambda nil "Update `planner-accomplishments-section'." (interactive) 
(save-excursion (save-restriction ...)))()
  call-interactively(planner-accomplishments-update)
  command-execute(planner-accomplishments-update t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)


Any ideas?

-- 
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!