[emacs-wiki-discuss] Re: M-x plan backtrace

[Bill White]

On Thu Jun 15 2006 at 10:26, Bill White <address@hidden> said:

> Also note that this is again different from the code written into
> 'custom-file' yesterday that caused the backtrace.  I'll restart and
> see whether *this* customize setting of 'muse-project-alist' kills
> things.

[restart Emacs...]

It throws a backtrace when I attempt to create a new muse/planner file
via 'planner-create-task-from-buffer':

Debugger entered--Lisp error: (muse-assertion-failed (file-name-directory path))
  signal(muse-assertion-failed ((file-name-directory path)))
  (or (file-name-directory path) (signal (quote muse-assertion-failed) (list 
...)))
  (progn (or (file-name-directory path) (signal ... ...)) nil)
  (muse-assert (file-name-directory path))
  (cond ((file-directory-p path) (dolist ... ...)) ((file-readable-p path) 
(setcdr lnames ...) (setq lnames ...)) (t (muse-assert ...) (dolist ... ...)))
  (let* ((names ...) (lnames names) (case-fold-search nil)) (cond (... ...) 
(... ... ...) (t ... ...)) (cdr names))
  muse-project-file-entries("WelcomePage")
  (nconc names (muse-project-file-entries (car pats)))
  (if (symbolp (car pats)) (setq pats (cddr pats)) (nconc names 
(muse-project-file-entries ...)) (setq pats (cdr pats)))
  (while pats (if (symbolp ...) (setq pats ...) (nconc names ...) (setq pats 
...)))
  (let* ((names ...) (pats ...)) (while pats (if ... ... ... ...)) (cdr names))
  (setcar (cdr file-alist) (let* (... ...) (while pats ...) (cdr names)))
  (progn (setcar (cdr file-alist) (let* ... ... ...)))
  (unwind-protect (progn (setcar ... ...)) (set-match-data 
save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal ...)))
  (save-match-data (setcar (cdr file-alist) (let* ... ... ...)))
  (prog1 (save-match-data (setcar ... ...)) (run-hooks (quote 
muse-project-file-alist-hook)))
  (let ((muse-updating-file-alist-p t)) (prog1 (save-match-data ...) (run-hooks 
...)))
  (if (or (and no-check-p ...) muse-updating-file-alist-p (not ...)) (cadr 
file-alist) (if file-alist (setcdr ... last-mod) (setq file-alist ... 
muse-project-file-alist ...)) (let (...) (prog1 ... ...)))
  (let* ((file-alist ...) (last-mod ...)) (unless (or muse-under-windows-p 
no-check-p) (let ... ...)) (if (or ... muse-updating-file-alist-p ...) (cadr 
file-alist) (if file-alist ... ...) (let ... ...)))
  muse-project-file-alist(("WikiPlanner" ("/emacs/init-files/planner/plans" 
"WelcomePage")) nil)
  (assoc page (muse-project-file-alist project no-check-p))
  (cdr (assoc page (muse-project-file-alist project no-check-p)))
  muse-project-page-file("2006.06.15" ("WikiPlanner" 
("/emacs/init-files/planner/plans" "WelcomePage")))
  (cons name (muse-project-page-file name project))
  (setq project (muse-project project) name (cons name (muse-project-page-file 
name project)))
  (if (interactive-p) nil (setq project (muse-project project) name (cons name 
...)))
  (unless (interactive-p) (setq project (muse-project project) name (cons name 
...)))
  (let ((project-name ...)) (unless (interactive-p) (setq project ... name 
...)) (if (and ... ...) (setcdr name ...) (unless ... ... ...)) (if (cdr name) 
(funcall ... ...) (error "There is no page %s in project %s." ... 
project-name)))
  muse-project-find-file("2006.06.15" "WikiPlanner" find-file nil)
  planner-find-file("2006.06.15" find-file)
  (progn (planner-find-file date (if planner-use-other-window ... ...)) (widen) 
(goto-char (point-min)) (run-hooks (quote planner-goto-hook)) t)
  (if (or (not just-show) (planner-page-exists-p date)) (progn 
(planner-find-file date ...) (widen) (goto-char ...) (run-hooks ...) t) (when 
(interactive-p) (message "No planner file for %s." date)) nil)
  planner-goto("2006.06.15")
  (progn (planner-goto date-page) (planner-seek-task-creation-point) (insert 
(planner-format-task info priority number status description ... plan-page) 
"\n"))
  (if (and date-page (not ...)) (progn (planner-goto date-page) 
(planner-seek-task-creation-point) (insert ... "\n")))
  (when (and date-page (not ...)) (planner-goto date-page) 
(planner-seek-task-creation-point) (insert (planner-format-task info priority 
number status description ... plan-page) "\n"))
  (let ((plan-page ...) (date-page ...) (live-buffers ...)) (when plan-page (if 
... ...)) (when (and plan-page ...) (planner-find-file plan-page) 
(planner-seek-task-creation-point) (insert ... "\n")) (when (and date-page ...) 
(planner-goto date-page) (planner-seek-task-creation-point) (insert ... "\n")) 
(forward-line -1) (run-hooks (quote planner-create-task-hook)) (when 
planner-tasks-file-behavior (planner-save-buffers live-buffers t)))
  (save-excursion (let (... ... ...) (when plan-page ...) (when ... ... ... 
...) (when ... ... ... ...) (forward-line -1) (run-hooks ...) (when 
planner-tasks-file-behavior ...)))
  (save-window-excursion (save-excursion (let ... ... ... ... ... ... ...)))
  planner-create-task-from-info-basic(nil "B" "0" "_" "test planner : 
[[WikiPlanner#2006.06.15]]" "[[TestPlannerBill]]" "2006.06.15" 
"TestPlannerBill")
  (if (and link-text (string-match ... link-text)) (progn (let ... ... ...)) 
(planner-create-task-from-info-basic info priority number status description 
link-text date plan))
  planner-multi-create-task-from-info(nil "B" "0" "_" "test planner : 
[[WikiPlanner#2006.06.15]]" "[[TestPlannerBill]]" "2006.06.15" 
"TestPlannerBill")
  funcall(planner-multi-create-task-from-info nil "B" "0" "_" "test planner : 
[[WikiPlanner#2006.06.15]]" "[[TestPlannerBill]]" "2006.06.15" 
"TestPlannerBill")
  planner-create-task-from-info(nil "B" "0" "_" "test planner : 
[[WikiPlanner#2006.06.15]]" "[[TestPlannerBill]]" "2006.06.15" 
"TestPlannerBill")
  planner-create-task("test planner" "2006.06.15" "[[WikiPlanner#2006.06.15]]" 
"TestPlannerBill" "_")
  (let ((planner-create-task-hook ...) (annotation ...)) (when (and 
planner-annotation-symbol-string ...) (setq title ... annotation nil)) 
(planner-create-task title (when ... date) annotation plan-page status))
  planner-create-task-from-buffer("test planner" "2006.06.15" "TestPlannerBill" 
"_")
  call-interactively(planner-create-task-from-buffer)

For now I'll just remove 'muse-project-alist' from 'custom-file' and
proceed.  Here's what I'm removing:

'(muse-project-alist (quote (("WikiPlanner" ("/emacs/init-files/planner/plans" 
:default "WelcomePage" :major-mode planner-mode :visit-link 
planner-visit-link)))))

Could there be a problem with the order in which things are set?  I
load planner-init.el shortly before loading 'custom-file':

~/.emacs :

(load-file "/emacs/init-files/planner/planner-init.el") 
[...]
(setq custom-file "/emacs/init-files/.emacs.custom.el")
(load-file custom-file)


bw
-- 
Bill White                                               Office: 5N-X30
Documentation Programmer                     Phone: 217-398-0700 x 3234
Wolfram Research                                      Fax: 217-398-0747
http://members.wri.com/billw                         Home: 217-678-8136