pixmap instanciator problems exhibited

The following change from Ben exhibits problems with pixmap instanciation in 21.5, that have probably been there for longer than we think: 2002-03-24 Ben Wing <ben(a)xemacs.org&gt; Create new error-behavior ERROR_ME_DEBUG_WARN -- output warnings, but at level `debug' (usually ignored). Use it when instantiating specifiers, so problems can be debugged. Move log-warning-minimum-level into C so that we can optimize ERROR_ME_DEBUG_WARN. I get a bunch of these warnings now that CVS 21.5 doesn't crash anymore: (1) (image/debug) error: (invalid-argument (Unable to interpret glyph instantiator /usr/local/share/xemacs/xemacs-packages/etc/time/l-3.0.xpm)) Backtrace follows: # bind (inhibit-quit) # (unwind-protect ...) # (catch #<INTERNAL OBJECT (XEmacs bug?) (opaque, size=0) 0x4065bd44> ...) # (unwind-protect ...) add-spec-list-to-specifier(#<image-specifier global=<unspecified> fallback=((nil . [nothing])) 0x1e02> ((global (nil . "/usr/local/share/xemacs/xemacs-packages/etc/time/l-3.0.xpm"))) nil) # bind (is-valid nval how-to-add tag-set locale value specifier) set-specifier(#<image-specifier global=<unspecified> fallback=((nil . [nothing])) 0x1e02> "/usr/local/share/xemacs/xemacs-packages/etc/time/l-3.0.xpm" nil nil nil) # bind (how-to-add tag-set locale value property glyph) set-glyph-property(#<glyph (buffer) #<image-specifier global=<unspecified> fallback=((nil . [nothing])) 0x1e02>0x1e01> image "/usr/local/share/xemacs/xemacs-packages/etc/time/l-3.0.xpm" nil nil nil) # bind (how-to-add tag-set locale spec glyph) set-glyph-image(#<glyph (buffer) #<image-specifier global=<unspecified> fallback=((nil . [nothing])) 0x1e02>0x1e01> "/usr/local/share/xemacs/xemacs-packages/etc/time/l-3.0.xpm") # bind (glyph type spec-list) make-glyph("/usr/local/share/xemacs/xemacs-packages/etc/time/l-3.0.xpm") # bind (xpm-color-symbols pad-color force) display-time-generate-load-glyphs(force) display-time-insinuate() display-time() # bind (current-load-list) # (unwind-protect ...) # bind (load-file-name) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) # (unwind-protect ...) load-internal("/home/didier/.xemacs/init.el" t t t undecided) # bind (path handler filename nosuffix nomessage noerror file) load("/home/didier/.xemacs/init.el" t t t) load-user-init-file() #<compiled-function nil "...(10)" [init-file-had-error load-user-init-file-p load-user-init-file nil] 2>() # (unwind-protect ...) call-with-condition-handler(#<compiled-function (__load_init_file_arg__) "...(26)" [init-file-had-error user-init-file __load_init_file_arg__ errstr error-message-string message "Error in init file: %s" lwarn initialization error "An error has occurred while loading %s:\n\n%s\n\nBacktrace follows:\n\n%s\n\nTo ensure normal operation, you should investigate the cause of the error\nin your initialization file and remove it. Use the `-debug-init' option\nto XEmacs to enter the debugger when the error occurs and investigate the\nexact problem." backtrace-in-condition-handler-eliminating-handler t] 8> #<compiled-function nil "...(10)" [init-file-had-error load-user-init-file-p load-user-init-file nil] 2>) # (condition-case ... . ((error))) # bind (debug-on-error debug-on-error-from-init-file debug-on-error-should-be-set debug-on-error-initial) load-init-file() # bind (command-line-args-left) command-line() # (condition-case ... . ((t (byte-code " ‡" [error-data data nil] 1)))) # bind (error-data) normal-top-level() # (condition-case ... . error) # (catch top-level ...) -- Didier Verna, didier(a)lrde.epita.fr, http://www.lrde.epita.fr/~didier EPITA / LRDE, 14-16 rue Voltaire Tel.+33 (1) 53 14 59 22 94276 Le Kremlin-Bicêtre, France Fax.+33 (1) 53 14 59 22 didier(a)xemacs.org