[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[emacs-wiki-discuss] planner-accomplishments errors
From: |
pll+ew |
Subject: |
[emacs-wiki-discuss] planner-accomplishments errors |
Date: |
Fri, 03 Sep 2004 11:57:19 -0400 |
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!
- [emacs-wiki-discuss] planner-accomplishments errors,
pll+ew <=
- [emacs-wiki-discuss] Re: planner-accomplishments errors, Sacha Chua, 2004/09/03
- Re: [emacs-wiki-discuss] Re: planner-accomplishments errors, pll+ew, 2004/09/03
- [emacs-wiki-discuss] Re: planner-accomplishments errors, Sacha Chua, 2004/09/05
- Re: [emacs-wiki-discuss] Re: planner-accomplishments errors, pll+ew, 2004/09/07
- [emacs-wiki-discuss] Re: planner-accomplishments errors, Sacha Chua, 2004/09/09
- Re: [emacs-wiki-discuss] Re: planner-accomplishments errors, pll+ew, 2004/09/09
- [emacs-wiki-discuss] Re: planner-accomplishments errors, Sacha Chua, 2004/09/09
- Re: [emacs-wiki-discuss] Re: planner-accomplishments errors, pll+ew, 2004/09/09