tool-bar related errors when loading compile.el

[Miles Bader]

I get the appended backtrace when loading compile.el.  I don't use
tool-bars, and it looks like compile.el is doing tool-bar stuff, so
maybe the problem is caused by this change:

   2008-10-04  Dan Nicolaescu  <address@hidden>

           * faces.el (x-create-frame-with-faces): Only setup the toolbar if
           tool-bar-mode is on.

The command I used to get the backtrace was just:

   M-x load-library RET compile.el RET

Here's the backtrace:

   Debugger entered--Lisp error: (wrong-type-argument keymapp nil)
     signal(wrong-type-argument (keymapp nil))
     define-key-after(nil [previous-error-no-select] (menu-item 
"previous-error-no-select" previous-error-no-select :image (tool-bar-find-image 
(if ... ... ...)) :rtl "right-arrow" :help "Goto previous error"))
     tool-bar-local-item("left-arrow" previous-error-no-select 
previous-error-no-select nil :rtl "right-arrow" :help "Goto previous error")
     (let ((map ...) (help ...)) (tool-bar-local-item "left-arrow" (quote 
previous-error-no-select) (quote previous-error-no-select) map :rtl 
"right-arrow" :help "Goto previous error") (tool-bar-local-item "right-arrow" 
(quote next-error-no-select) (quote next-error-no-select) map :rtl "left-arrow" 
:help "Goto next error") (tool-bar-local-item "cancel" (quote kill-compilation) 
(quote kill-compilation) map :enable (quote ...) :help "Stop compilation") 
(tool-bar-local-item "refresh" (quote recompile) (quote recompile) map :help 
"Restart compilation") (append map help))
     (if (display-graphic-p) (let (... ...) (tool-bar-local-item "left-arrow" 
... ... map :rtl "right-arrow" :help "Goto previous error") 
(tool-bar-local-item "right-arrow" ... ... map :rtl "left-arrow" :help "Goto 
next error") (tool-bar-local-item "cancel" ... ... map :enable ... :help "Stop 
compilation") (tool-bar-local-item "refresh" ... ... map :help "Restart 
compilation") (append map help)))
     (defvar compilation-mode-tool-bar-map (if (display-graphic-p) (let ... ... 
... ... ... ...)))
     eval-buffer(#<buffer  *load*> nil 
"/usr/local/share/emacs/23.0.60/lisp/progmodes/compile.el" nil t)  ; Reading at 
buffer position 58656
     
load-with-code-conversion("/usr/local/share/emacs/23.0.60/lisp/progmodes/compile.el"
 "/usr/local/share/emacs/23.0.60/lisp/progmodes/compile.el" nil nil)
     load("compile.el")
     load-library("compile.el")
     call-interactively(load-library t nil)
     execute-extended-command(nil)
     call-interactively(execute-extended-command nil nil)

Thanks,

-Miles

-- 
80% of success is just showing up.  --Woody Allen