#2 loading x-symbol freezes xemacs 21.5-b17

[Anonymous]

As of a few days ago, as soon as x-symbol loads xemacs
consistently freezes (menus can be pulled down, but they do
nothing, and the contents of buffers are not displayed at all). I am
really at a loss, since x-symbol (both the latest beta version and
the "official" one in the sumo package) used to work just fine. As
far as I am aware, this problem started just out of the blue, since I
haven't upgraded neither xemacs nor its packages in a while.
My installation information, and the lisp backtrace I obtain when I
kill xemacs (I haven't been able to use the x-symbol bug report
tool, since xemacs completely freezes right after x-symbol loads)
follow at the end of this message.

Thanks,

Artemio Gonzalez-Lopez
artemio@fis.ucm.es

uname -a: Darwin tillina.fis.ucm.es 7.4.0 Darwin Kernel Version
7.4.0: Wed May 12 16:58:24 PDT 2004; root:xnu/xnu
-517.7.7.obj~7/RELEASE_PPC Power Macintosh powerpc

configure '--pdump' '--error-checking=no' '--with-database=no' '--
with-ldap=no' '--with-postgresql=no' '--with-default-eol-detection'
'--with-mule=no' '--with-xim=no' '--with-xfs=no' '--with-sound=no'
'--with-athena=3d' '--with-dialogs=athena' '--with-widgets=athena'
'--prefix=/opt/local' '--infodir=/opt/local/share/man/man1' '--
cflags=-Os' '--site-includes=/sw/include' '--site-libraries=/sw/lib'
'--dynamic'

XEmacs 21.5-b17 "chayote" (+CVS-20040722) configured for
`powerpc-apple-darwin7.4.0'.

Compilation Environment and Installation Defaults:
Source code location: /tmp/artemio/xemacs-HEAD
Installation prefix: /opt/local
Additional header files: /sw/include
Additional libraries: /sw/lib
Operating system description file: `s/darwin.h'
Machine description file: `m/powerpc.h'
Compiler version: gcc (GCC) 3.3 20030304 (Apple
Computer, Inc. build 1640)
- GCC specs file: /usr/libexec/gcc/darwin/ppc/3.3/
specs
- Compiler command: gcc -Wall -Wno-switch -Winline
-Wmissing-prototypes -Wsign-compare -Wundef -Wstrict-
prototypes -Wpacked -Wpointer-arith -Wshadow -Wmissing-
declarations -Os
libc version:
Relocating allocator for buffers: no
GNU version of malloc: no
- The GNU allocators don't work with this system configuration.

Window System:
Compiling in support for the X window system:
- X Windows headers location: /usr/X11R6/include
- X Windows libraries location: /usr/X11R6/lib
- Handling WM_COMMAND properly.
Compiling in support for the Athena widget set:
- Athena headers location: X11/Xaw3d
- Athena library to link: Xaw3d
Using Lucid menubars.
Using Lucid scrollbars.
Using Athena dialog boxes.
Using Athena native widgets.

TTY:
Compiling in support for ncurses.

Images:
Compiling in support for GIF images (builtin).
Compiling in support for XPM images.
Compiling in support for PNG images.
Compiling in support for JPEG images.
Compiling in support for TIFF images.

Sound:

Databases:

Internationalization:

Mail:
Compiling in support for "dot-locking" mail spool file locking
method.

Other Features:
Inhibiting IPv6 canonicalization at startup.
Compiling in support for dynamic shared object modules.
Using the new portable dumper.
Compiling in support for extra debugging code.

=========================================

==========
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
accept-process-output(#<process "*call-process*" pid 597 state:
run>)
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/tcsh" nil t nil "-c" "convert -list
Format")
apply(call-process-internal "/bin/tcsh" nil t nil ("-c" "convert -list
Format"))
# bind (coding-system-for-read coding-system-for-write cs-r cs-
w args displayp buffer infile program)
call-process("/bin/tcsh" nil t nil "-c" "convert -list Format")
# (unwind-protect ...)
(save-excursion (set-buffer (get-buffer-create " *x-symbol-image
command*")) (erase-buffer) (call-process shell-file-name nil t nil
shell-command-switch (concat x-symbol-image-convert-program "
-list Format")) (call-process shell-file-name nil t nil shell-
command-switch (concat x-symbol-image-convert-program " -h"))
(let (iformat) (cond ((when (featurep (quote png)) (goto-char
(point-min)) (re-search-forward "^[ ]*[pP][nN][gG]" nil t))
(setq iformat (quote png))) ((when (featurep (quote gif)) (goto-
char (point-min)) (re-search-forward "^[ ]*[gG][iI][fF]" nil
t)) (setq iformat (quote gif))) (t (setq iformat (cond ((featurep
(quote png)) (quote png)) ((featurep (quote gif)) (quote gif))))
(unless iformat (warn "x-symbol-image: your Emacs neither
supports png nor gif")) (goto-char (point-min)) (if (re-search-
forward "ImageMagick" nil t) (if iformat (warn "x-symbol-image:
\"convert\" doesn't list recognized formats, I'll try %S" iformat))
(warn "x-symbol-image: no valid image converter") (setq iformat
nil)))) (kill-buffer (current-buffer)) (when iformat (list* iformat
(cdr (assq iformat (quote ((png . ".png") (gif . ".gif"))))) (if (and
(boundp (quote system-type)) (eq system-type (quote windows-
nt))) (quote x-symbol-image-start-convert-mswindows) (let
((colors (if (featurep (quote xemacs)) (or (device-color-cells) 2)
(if (display-color-p) 256 2)))) (cond ((< colors 32) (quote x-
symbol-image-start-convert-mono)) ((> colors 767) (quote x-
symbol-image-start-convert-truecolor)) (x-symbol-image-convert-
colormap (quote x-symbol-image-start-convert-colormap)) (t
(quote x-symbol-image-start-convert-color)))))))))
(if (console-type) (save-excursion (set-buffer (get-buffer-create "
*x-symbol-image command*")) (erase-buffer) (call-process shell-
file-name nil t nil shell-command-switch (concat x-symbol-image-
convert-program " -list Format")) (call-process shell-file-name nil
t nil shell-command-switch (concat x-symbol-image-convert-
program " -h")) (let (iformat) (cond ((when (featurep (quote png))
(goto-char (point-min)) (re-search-forward "^[ ]*[pP][nN][gG]"
nil t)) (setq iformat (quote png))) ((when (featurep (quote gif))
(goto-char (point-min)) (re-search-forward "^[
]*[gG][iI][fF]" nil t)) (setq iformat (quote gif))) (t (setq iformat
(cond ((featurep (quote png)) (quote png)) ((featurep (quote gif))
(quote gif)))) (unless iformat (warn "x-symbol-image: your Emacs
neither supports png nor gif")) (goto-char (point-min)) (if (re-
search-forward "ImageMagick" nil t) (if iformat (warn "x-symbol-
image: \"convert\" doesn't list recognized formats, I'll try %S"
iformat)) (warn "x-symbol-image: no valid image converter") (setq
iformat nil)))) (kill-buffer (current-buffer)) (when iformat (list*
iformat (cdr (assq iformat (quote ((png . ".png") (gif . ".gif")))))
(if (and (boundp (quote system-type)) (eq system-type (quote
windows-nt))) (quote x-symbol-image-start-convert-mswindows)
(let ((colors (if (featurep (quote xemacs)) (or (device-color-
cells) 2) (if (display-color-p) 256 2)))) (cond ((< colors 32) (quote
x-symbol-image-start-convert-mono)) ((> colors 767) (quote x-
symbol-image-start-convert-truecolor)) (x-symbol-image-convert-
colormap (quote x-symbol-image-start-convert-colormap)) (t
(quote x-symbol-image-start-convert-color))))))))))
(when (console-type) (save-excursion (set-buffer (get-buffer-
create " *x-symbol-image command*")) (erase-buffer) (call-
process shell-file-name nil t nil shell-command-switch (concat x-
symbol-image-convert-program " -list Format")) (call-process
shell-file-name nil t nil shell-command-switch (concat x-symbol-
image-convert-program " -h")) (let (iformat) (cond ((when
(featurep (quote png)) (goto-char (point-min)) (re-search-forward
"^[ ]*[pP][nN][gG]" nil t)) (setq iformat (quote png))) ((when
(featurep (quote gif)) (goto-char (point-min)) (re-search-forward
"^[ ]*[gG][iI][fF]" nil t)) (setq iformat (quote gif))) (t (setq
iformat (cond ((featurep (quote png)) (quote png)) ((featurep
(quote gif)) (quote gif)))) (unless iformat (warn "x-symbol-image:
your Emacs neither supports png nor gif")) (goto-char (point-
min)) (if (re-search-forward "ImageMagick" nil t) (if iformat (warn
"x-symbol-image: \"convert\" doesn't list recognized formats, I'll
try %S" iformat)) (warn "x-symbol-image: no valid image
converter") (setq iformat nil)))) (kill-buffer (current-buffer))
(when iformat (list* iformat (cdr (assq iformat (quote ((png .
".png") (gif . ".gif"))))) (if (and (boundp (quote system-type)) (eq
system-type (quote windows-nt))) (quote x-symbol-image-start-
convert-mswindows) (let ((colors (if (featurep (quote xemacs))
(or (device-color-cells) 2) (if (display-color-p) 256 2)))) (cond ((<
colors 32) (quote x-symbol-image-start-convert-mono)) ([tillina:
~/Downloads] artemio% (> colors 767) (quote x-symbol-image-
start-convert-truecolor)) (x-symbol-image-convert-colormap
(quote x-symbol-image-start-convert-colormap)) (t (quote x-
symbol-image-start-convert-color))))))))))
eval((when (console-type) (save-excursion (set-buffer (get-
buffer-create " *x-symbol-image command*")) (erase-buffer)
(call-process shell-file-name nil t nil shell-command-switch (concat
x-symbol-image-convert-program " -list Format")) (call-process
shell-file-name nil t nil shell-command-switch (concat x-symbol-
image-convert-program " -h")) (let (iformat) (cond ((when
(featurep (quote png)) (goto-char (point-min)) (re-search-forward
"^[ ]*[pP][nN][gG]" nil t)) (setq iformat (quote png))) ((when
(featurep (quote gif)) (goto-char (point-min)) (re-search-forward
"^[ ]*[gG][iI][fF]" nil t)) (setq iformat (quote gif))) (t (setq
iformat (cond ((featurep (quote png)) (quote png)) ((featurep
(quote gif)) (quote gif)))) (unless iformat (warn "x-symbol-image:
your Emacs neither supports png nor gif")) (goto-char (point-
min)) (if (re-search-forward "ImageMagick" nil t) (if iformat (warn
"x-symbol-image: \"convert\" doesn't list recognized formats, I'll
try %S" iformat)) (warn "x-symbol-image: no valid image
converter") (setq iformat nil)))) (kill-buffer (current-buffer))
(when iformat (list* iformat (cdr (assq iformat (quote ((png .
".png") (gif . ".gif"))))) (if (and (boundp (quote system-type)) (eq
system-type (quote windows-nt))) (quote x-symbol-image-start-
convert-mswindows) (let ((colors (if (featurep (quote xemacs))
(or (device-color-cells) 2) (if (display-color-p) 256 2)))) (cond ((<
colors 32) (quote x-symbol-image-start-convert-mono)) ((> colors
767) (quote x-symbol-image-start-convert-truecolor)) (x-symbol-
image-convert-colormap (quote x-symbol-image-start-convert-
colormap)) (t (quote x-symbol-image-start-convert-color)))))))))))
# bind (value symbol)
custom-initialize-reset(x-symbol-image-converter (when
(console-type) (save-excursion (set-buffer (get-buffer-create " *x-
symbol-image command*")) (erase-buffer) (call-process shell-
file-name nil t nil shell-command-switch (concat x-symbol-image-
convert-program " -list Format")) (call-process shell-file-name nil
t nil shell-command-switch (concat x-symbol-image-convert-
program " -h")) (let (iformat) (cond ((when (featurep (quote png))
(goto-char (point-min)) (re-search-forward "^[
]*[pP][nN][gG]" nil t)) (setq iformat (quote png))) ((when
(featurep (quote gif)) (goto-char (point-min)) (re-search-forward
"^[ ]*[gG][iI][fF]" nil t)) (setq iformat (quote gif))) (t (setq
iformat (cond ((featurep (quote png)) (quote png)) ((featurep
(quote gif)) (quote gif)))) (unless iformat (warn "x-symbol-image:
your Emacs neither supports png nor gif")) (goto-char (point-
min)) (if (re-search-forward "ImageMagick" nil t) (if iformat (warn
"x-symbol-image: \"convert\" doesn't list recognized formats, I'll
try %S" iformat)) (warn "x-symbol-image: no valid image
converter") (setq iformat nil)))) (kill-buffer (current-buffer)) (when
iformat (list* iformat (cdr (assq iformat (quote ((png . ".png") (gif
. ".gif"))))) (if (and (boundp (quote system-type)) (eq system-
type (quote windows-nt))) (quote x-symbol-image-start-convert-
mswindows) (let ((colors (if (featurep (quote xemacs)) (or
(device-color-cells) 2) (if (display-color-p) 256 2)))) (cond ((<
colors 32) (quote x-symbol-image-start-convert-mono)) ((> colors
767) (quote x-symbol-image-start-convert-truecolor)) (x-symbol-
image-convert-colormap (quote x-symbol-image-start-convert-
colormap)) (t (quote x-symbol-image-start-convert-color)))))))))))
# bind (initialize requests args doc default symbol)
custom-declare-variable(x-symbol-image-converter (when
(console-type) (save-excursion (set-buffer (get-buffer-create " *x-
symbol-image command*")) (erase-buffer) (call-process shell-
file-name nil t nil shell-command-switch (concat x-symbol-image-
convert-program " -list Format")) (call-process shell-file-name nil
t nil shell-command-switch (concat x-symbol-image-convert-
program " -h")) (let (iformat) (cond ((when (featurep (quote png))
(goto-char (point-min)) (re-search-forward "^[
]*[pP][nN][gG]" nil t)) (setq iformat (quote png))) ((when
(featurep (quote gif)) (goto-char (point-min)) (re-search-forward
"^[ ]*[gG][iI][fF]" nil t)) (setq iformat (quote gif))) (t (setq
iformat (cond ((featurep (quote png)) (quote png)) ((featurep
(quote gif)) (quote gif)))) (unless iformat (warn "x-symbol-image:
your Emacs neither supports png nor gif")) (goto-char (point-
min)) (if (re-search-forward "ImageMagick" nil t) (if iformat (warn
"x-symbol-image: \"convert\" doesn't list recognized formats, I'll
try %S" iformat)) (warn "x-symbol-image: no valid image
converter") (setq iformat nil)))) (kill-buffer (current-buffer)) (when
iformat (list* iformat (cdr (assq iformat (quote ((png . ".png") (gif
. ".gif"))))) (if (and (boundp (quote system-type)) (eq system-
type (quote windows-nt))) (quote x-symbol-image-start-convert-
mswindows) (let ((colors (if (featurep (quote xemacs)) (or
(device-color-cells) 2) (if (display-color-p) 256 2)))) (cond ((<
colors 32) (quote x-symbol-image-start-convert-mono)) ((> colors
767) (quote x-symbol-image-start-convert-truecolor)) (x-symbol-
image-convert-colormap (quote x-symbol-image-start-convert-
colormap)) (t (quote x-symbol-image-start-convert-color))))))))))
"Converter to produce the image cache file from the image
file.\nThis definition has the form (IMAGE-FORMAT EXTENSION .
COMMAND).\nIMAGE-FORMAT is a image format compiled into
your XEmacs. EXTENSION is\nthe extension used for image cache
file names.\n\nCOMMAND, called with arguments INFILE and
OUTFILE should start and\nreturn the process which creates the
image cache file OUTFILE from the\nimage file INFILE. COMMAND
should also use `x-symbol-image-max-width'\nand `x-symbol-
image-max-height'. Value nil means, use\n`x-symbol-image-
junk-glyph' instead creating a glyph from IMAGE.\n\nPredefined
COMMANDS start \"convert\" from ImageMagick with
different\noptions according to the number of colors in your
device:\n`x-symbol-image-start-convert-truecolor',\n`x-symbol-
image- start-convert-color' and\n`x-symbol-image-start-convert-
mono'." :group x-symbol-image-general:type (choice (const :tag
"No image converter" nil) (cons :tag "Converter" (symbol :tag
"Image format") (cons :format "%v" (string :tag "File extension")
(choice :tag "Convert function" (function-item:tag "To
monochrome" x-symbol-image-start-convert-mono) (function-
item:tag "To color, restricted" x-symbol-image-start-convert-color)
(function-item :tag "To color, colormap" x-symbol-image-start-
convert-colormap) (function-item :tag "To color, unrestricted" x-
symbol-image-start-convert-truecolor) (function:tag "Other
function"))))))
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load-internal("x-symbol-vars" nil require nil binary)
# bind (path handler filename nosuffix nomessage noerror file)
load("x-symbol-vars" nil require nil)
# (unwind-protect ...)
require(x-symbol-vars)
byte-code("..." [current-load-list provide x-symbol require x-
symbol-vars featurep mule x-symbol-mule x-symbol-nomule x-
symbol-trace-invisible default-boundp set-default nil] 3)
# bind (current-load-list)
# (unwind-protect ...)
# bind (load-file-name)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
load-internal("x-symbol" nil nil nil binary)
# bind (path handler filename nosuffix nomessage noerror file)
load("x-symbol" nil nil nil)
# (unwind-protect ...)
x-symbol-read-language("Token Language for X-Symbol mode: "
nil cdr)
# bind (matcher style alist buffer-name buffer-file-name disabled
disabled1 disabled0 new-mode old-mode special arg)
#<compiled-function (&optional arg special) "...(520)" [disabled1
x-symbol-mode special disabled x-symbol-language style init nil
prefix-numeric-value 0 x-symbol-mode-disable mode-class t error
functionp interactive yes-or-no-p format "Cannot use X-Symbol
with %s Mode. Turn on anyway? " "%s Mode does not allow to
turn on X-Symbol" x-symbol-buffer-file-name buffer-name x-
symbol-style string-match x-symbol-LANG-modes local-variable-p
x-symbol-LANG-feature x-symbol-read-language "Token Language
for X-Symbol mode (default %s): " x-symbol-language-text cdr
"Token Language for X-Symbol mode: " "A valid token language is
required to turn on X-Symbol" require x-symbol-LANG-auto-style
boundp eval x-symbol-auto-set-variable x-symbol-coding x-
symbol-8bits x-symbol-auto-8bit-search null x-symbol-unique x-
symbol-subscripts 4 x-symbol-image 5 x-symbol-mode-internal
"Cannot turn on X-Symbol mode" alist ...] 5 ("/opt/local/lib/
xemacs/xemacs-packages/lisp/x-symbol/x-symbol- hooks.elc" .
22346) (list current-prefix-arg (quote interactive))>(nil
interactive)
call-interactively(x-symbol-mode)
command-execute(x-symbol-mode 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 ...)