[Bug: 21.4.19] crash with Planner: planner-create-note-from-task

[Johan W. Klüwer]

    SJT> Just to confirm: Are you saying that there are .elc files but
    SJT> *you* didn't compile them, or that you are using the .el
    SJT> files from the planner distribution, and there are no .elc
    SJT> files present?

There are no .elc files present.

    SJT> Mandriva has a history of applying patches to XEmacs [...]
    SJT> you may want to get in touch with them about it if nothing
    SJT> else helps.

I have reported the bug to Mandriva Bugzilla, but no uptake so far ..

    SJT> It would help to start XEmacs, invoke
    SJT> planner-edit-task-description once, then do

    SJT>     M-: (symbol-function 'planner-edit-task-description) RET

Here:

  #<compiled-function (description) "...(89)" [timeclock-file planner-timeclock-current-task description ad-return-value info nil planner-current-task-info planner-task-description planner-appt-debug-message "*** called advice on planner-edit-task-description" planner-appt-task-delete ((byte-code "À ˆÁÂ!‡" [planner-appt-enable-all-advice planner-appt-debug-message "all advice enabled"] 2)) planner-appt-disable-all-advice "all advice disabled" ad-Orig-planner-edit-task-description planner-appt-task-add find-file-noselect re-search-forward "^. [^ 
  ]+ [^ 
  ]+ " regexp-quote planner-timeclock-plan-string "\\(" "\\)$" t replace-match 1 save-buffer kill-buffer] 7 "$ad-doc: planner-edit-task-description$" (list (let* ((info (planner-current-task-info)) (planner-task-history (list (planner-task-description info)))) (unless info (error "No task on current line")) (read-string "New description: " (cons (planner-task-description info) 1) (quote (planner-task-history . 1)) (planner-task-description info))))>



    SJT>     C-h f planner-edit-task-description RET

Here:

  `planner-edit-task-description' is an interactive compiled Lisp function
  -- loaded from "planner"
  (planner-edit-task-description DESCRIPTION)

  Documentation:
  Change the current task to use DESCRIPTION.

  This function is advised.

  Around-advice `planner-timeclock':
  Update the timelog as well. Warning! Do not have duplicate tasks!

  Around-advice `planner-appt-task':
  Update the appointment as well.



    SJT> Then verify that it crashes on the next try

Yes, let's see .. I should point out that the crashes aren't 100%
predictable; e.g., sometimes I need to call the functions three times
instead of two.

I create a new task, then do planner-edit-task-description to change
its name. This doesn't lead to a crash in itself, even if I do
planner-edit-task-description several times. However, if I add a note
to the task using planner-create-note-from-task, then xemacs crashes
and reports the following on the console.


Fatal error: assertion failed, file
/home/gb/rebuild.ncurses/rebuild/rpm/BUILD/xemacs-21.4.19/src/bytecode.c,
line 1479, ABORT()fg


Fatal error (6).

Your files have been auto-saved. 

[...]

Lisp backtrace follows:

  # bind (description)
  # (unwind-protect ...)
  # bind (info ad-return-value description)
  planner-edit-task-description("Ny test etst [[2007.01.17#1][(1)]]")
  (if (planner-find-task task-info) (planner-edit-task-description (concat ... " " ...)))
  (when (planner-find-task task-info) (planner-edit-task-description (concat ... " " ...)))
  # (unwind-protect ...)
  (save-window-excursion (when (planner-find-task task-info) (planner-edit-task-description ...)))
  # (unwind-protect ...)
  (save-excursion (save-window-excursion (when ... ...)))
  (progn (when (and plan-page-p ...) (planner-jump-to-linked-task task-info)) (setq note-num (planner-create-note ...)) (save-excursion (save-window-excursion ...)) (insert " " (planner-task-description task-info) "\n\n"))
  (if task-info (progn (when ... ...) (setq note-num ...) (save-excursion ...) (insert " " ... "\n\n")))
  (when task-info (when (and plan-page-p ...) (planner-jump-to-linked-task task-info)) (setq note-num (planner-create-note ...)) (save-excursion (save-window-excursion ...)) (insert " " (planner-task-description task-info) "\n\n"))
  # bind (note-num task-info)
  (let ((task-info ...) note-num) (when task-info (when ... ...) (setq note-num ...) (save-excursion ...) (insert " " ... "\n\n")))
  # bind (plan-page-p)
  planner-create-note-from-task(nil)
  # bind (command-debug-status)
  call-interactively(planner-create-note-from-task)
  command-execute(planner-create-note-from-task t)
  # bind (_execute_command_keys_ _execute_command_name_ prefix-arg)
  execute-extended-command(nil)
  # bind (command-debug-status)
  call-interactively(execute-extended-command)
  # (condition-case ... . error)
  # (catch top-level ...)
Aborted (core dumped)



In gdb:

(gdb) where
#0  0x00002aec7b8b4487 in kill () from /lib64/libc.so.6
#1  0x000000000046d0be in fatal_error_signal ()
#2  0x00002aec7b8b4030 in killpg () from /lib64/libc.so.6
#3  0x0000000000000000 in ?? ()