Correction to previous crash report

[Keith Waclena]

An embedded and charset-unspecified text was scrubbed...
Name: not available
Url: http://calypso.tux.org/pipermail/xemacs-beta/attachments/20040902/306a1f57/attachment.pl 
-------------- next part --------------
$ xemacs

Fatal error (13).

Your files have been auto-saved.
Use `M-x recover-session' to recover them.

Your version of XEmacs was distributed with a PROBLEMS file that may describe
your crash, and with luck a workaround.  Please check it first, but do report
the crash anyway.

Please report this bug by invoking M-x report-emacs-bug, or by selecting
`Send Bug Report' from the Help menu.  If that won't work, send ordinary
email to `crashes at xemacs.org'.  *MAKE SURE* to include this entire output
from this crash, especially including the Lisp backtrace, as well as the
XEmacs configuration from M-x describe-installation (or equivalently, the
file `Installation' in the top of the build tree).

*Please* try *hard* to obtain a C stack backtrace; without it, we are unlikely
to be able to analyze the problem.  Locate the core file produced as a result
of this crash (often called `core' or `core.<process-id>', and located in
the directory in which you started XEmacs or your home directory), and type

  gdb /usr/pkg/bin/xemacs core

then type `where' at the debugger prompt.  No GDB on your system?  You may
have DBX, or XDB, or SDB.  (Ask your system administrator if you need help.)
If no core file was produced, enable them (often with `ulimit -c unlimited')
in case of future recurrance of the crash.

Lisp backtrace follows:

  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  # (unwind-protect ...)
  process-send-region(#<process "*call-process*" pid 17087 state:exit> 1 59823 #<buffer "sample.init.el">)
  byte-code("..." [display eof-sent end start inbuf proc process-send-region process-send-eof t accept-process-output process-synchronize-point sit-for 0] 5)
  # (condition-case ... . ((quit (byte-code "??\n\"? ???\n!??\n!??\n!?u??!??o" [display eof-sent proc process-send-signal SIGINT process-send-eof accept-process-output process-synchronize-point sit-for 0] 3))))
  # bind (eof-sent)
  byte-code("..." [eof-sent inbuf stderr no-wait errbuf proc set-process-sentinel lambda (proc status) (set-process-sentinel proc nil) (process-synchronize-point proc) with-current-buffer write-region-internal 1 (1+ (buffer-size)) (nil (quote major-rms-kludge-city) nil coding-system-for-write) kill-buffer #<compiled-function (proc status) "...(64)" [status coding-system-for-write stderr errbuf proc process-synchronize-point write-region-internal 1 buffer-size nil major-rms-kludge-city process-status exit set-process-sentinel throw call-process-done process-exit-status signal] 8> nil (byte-code "
                           ???
\n
!?u??!??o" [display eof-sent end start inbuf proc process-send-region process-send-eof t accept-process-output process-synchronize-point sit-for 0] 5) ((quit (byte-code "??\n\"?      ???\n!??\n!??\n!?u??!??o" [display eof-sent proc process-send-signal SIGINT process-send-eof accept-process-output process-synchronize-point sit-for 0] 3))) process-send-region process-send-eof start end] 14)
  # (catch call-process-done ...)
  # (unwind-protect ...)
  # bind (stderr)
  # (unwind-protect ...)
  # bind (proc inbuf errbuf kill-inbuf kill-errbuf no-wait start end args display buffer infile program)
  call-process-internal("/bin/sh" (#<buffer "sample.init.el"> 1 59823) #<buffer "*Shell Command Output*"> nil "-c" "skjhskjhs")
  apply(call-process-internal "/bin/sh" (#<buffer "sample.init.el"> 1 59823) #<buffer "*Shell Command Output*"> nil ("-c" "skjhskjhs"))
  # bind (coding-system-for-read coding-system-for-write cs-r cs-w args displayp buffer infile program)
  call-process("/bin/sh" (#<buffer "sample.init.el"> 1 59823) #<buffer "*Shell Command Output*"> nil "-c" "skjhskjhs")
  apply(call-process "/bin/sh" (#<buffer "sample.init.el"> 1 59823) #<buffer "*Shell Command Output*"> nil ("-c" "skjhskjhs"))
  # bind (s e args displayp buffer deletep program end start)
  call-process-region(1 59823 "/bin/sh" nil #<buffer "*Shell Command Output*"> nil "-c" "skjhskjhs")
  # (unwind-protect ...)
  # bind (buffer success exit-status directory replace output-buffer command end start)
  #<compiled-function (start end command &optional output-buffer replace) "...(174)" [shell-file-name buffer output-buffer replace end start bufferp push-mark call-process-region t nil get-buffer "*Shell Command Output*" kill-buffer exchange-point-and-mark get-buffer-create ((byte-code "?
                                                           q?? ?U??????ed\")??U??   ????a??????\"??
                                                                                                   !???     ??\n?U?????
    q?eb?`?_?`{)\"?????
                       !?\"?)??" [exit-status success lines buffer buffer-size 0 count-lines display-message command "(Shell command succeeded with no output)" "(Shell command failed with no output)" kill-buffer 1 message "%s" nil set-window-start display-buffer] 5)) erase-buffer shell-command-switch command shell-buffer exit-status success swap default-directory directory buffer-read-only] 10 893232 (let ((string (read-shell-command "Shell command on region: "))) (list (region-beginning) (region-end) string current-prefix-arg current-prefix-arg))>(1 59823 "skjhskjhs" nil nil)
  call-interactively(shell-command-on-region)
  # (condition-case ... . error)
  # (catch top-level ...)