[emacs-wiki-discuss] Re: planner-appt: fix XEmacs initialization

[René]

Jim Ottaway <j.ottaway <at> lse.ac.uk> writes:

> I think I have now fixed the problems with the initialization of the
> appt system under XEmacs.

Now when I muse-project-publish my plan file I get the following warning:

-----------------------
    (1) (muse/warning) An error occurred while publishing 2006.02.03:
        (buffer-read-only 2006.02.03.html)
-----------------------

Just in case, here is the backtrace:

-----------------------
Debugger entered--Lisp error: (buffer-read-only #<buffer "2006.02.03.html">)
  sort-reorder-buffer(((1441 13 . 75) (1441 76 . 82) ...))
  sort-subr(nil forward-line end-of-line (lambda nil (goto-char
(planner-line-beginning-position)) (if (looking-at planner-appt-schedule-regexp)
(appt-convert-time ...) 1441)) nil)
  (save-restriction (planner-seek-to-first planner-appt-schedule-section)
(narrow-to-region (point) (save-excursion ... ...)) (sort-subr nil (quote
forward-line) (quote end-of-line) (function ...) nil))
  (save-excursion (save-restriction (planner-seek-to-first
planner-appt-schedule-section) (narrow-to-region ... ...) (sort-subr nil ... ...
... nil)))
  planner-appt-schedule-sort()
  (if (and planner-appt-sort-schedule-on-update-flag
(planner-appt-todays-page-p)) (planner-appt-schedule-sort))
  (when (and planner-appt-sort-schedule-on-update-flag
(planner-appt-todays-page-p)) (planner-appt-schedule-sort))
  planner-appt-update()
  (progn (planner-appt-update) nil)
  (if planner-appt-update-appts-on-save-flag (progn (planner-appt-update) nil))
  (when planner-appt-update-appts-on-save-flag (planner-appt-update) nil)
  planner-appt-update-for-write()
  basic-save-buffer()
  save-buffer()
  write-file("/home/jlk/muse-target/agenda/2006.02.03.html")
  muse-publish-file("/home/jlk/muse-source/agenda/2006.02.03.muse" (:base
"my-planner-html" :path "~/muse-target/agenda") "~/muse-target/agenda" nil)
  muse-project-publish-file("/home/jlk/muse-source/agenda/2006.02.03.muse"
((:base "my-planner-html" :path "~/muse-target/agenda")) nil)
  #<compiled-function (project &optional force) "...(216)" [pair forced-files
value muse-publishing-styles styles project muse-project-of-file assoc signal
muse-assertion-failed (consp project) nil 1 completing-read "Publish with style:
" t muse-project-save-buffers run-hook-with-args
muse-before-project-publish-hook :force-publish muse-project-file-alist
muse-project-publish-file delete muse-after-project-publish-hook message "All
pages in %s have been published." "No pages in %s need publishing at this time."
--dolist-temp--73910 --dolist-temp--73911 published file-alist file
muse-current-project direct list muse-project-alist keyword force] 7
("/usr/share/xemacs21/site-lisp/muse-el/muse-project.elc" . 15284) (list
(muse-read-project "Publish project: " nil t)
current-prefix-arg)>(("WikiPlanner" ("~/muse-source/agenda" :default
"WelcomePage" :force-publish ("index") :major-mode planner-mode :visit-link
planner-visit-link) (:base "my-planner-html" :path "~/muse-target/agenda")) nil)
  call-interactively(muse-project-publish)
-----------------------

--jlk