[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/10/12 13:46:28

Index: compile.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.479
retrieving revision 1.480
diff -u -b -r1.479 -r1.480
--- compile.el  11 Oct 2008 19:59:11 -0000      1.479
+++ compile.el  12 Oct 2008 13:46:28 -0000      1.480
@@ -1471,6 +1471,9 @@
 `compilation-minor-mode-map' is a parent of this.")
 
 (defvar compilation-mode-tool-bar-map
+  ;; When bootstrapping, tool-bar-map is not properly initialized yet,
+  ;; so don't do anything.
+  (when (keymapp (butlast tool-bar-map))
   (let ((map (butlast (copy-keymap tool-bar-map)))
        (help (last tool-bar-map))) ;; Keep Help last in tool bar
     (tool-bar-local-item
@@ -1489,7 +1492,7 @@
     (tool-bar-local-item
      "refresh" 'recompile 'recompile map
      :help "Restart compilation")
-    (append map help)))
+      (append map help))))
 
 (put 'compilation-mode 'mode-class 'special)