(gud-tool-bar-map): Initialize it unconditionally.

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 4e56383f3a43bc64bcc15723b48418afcd64e0a4..d41e568331b848772ba7e0248d77a9abcd839e6f 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -272,30 +272,29 @@ Used to grey out relevant toolbar icons.")
   "`gud-mode' keymap.")
 
 (defvar gud-tool-bar-map
-  (if (display-graphic-p)
-      (let ((map (make-sparse-keymap)))
-       (dolist (x '((gud-break . "gud/break")
-                    (gud-remove . "gud/remove")
-                    (gud-print . "gud/print")
-                    (gud-pstar . "gud/pstar")
-                    (gud-pp . "gud/pp")
-                    (gud-watch . "gud/watch")
-                    (gud-run . "gud/run")
-                    (gud-go . "gud/go")
-                    (gud-stop-subjob . "gud/stop")
-                    (gud-cont . "gud/cont")
-                    (gud-until . "gud/until")
-                    (gud-next . "gud/next")
-                    (gud-step . "gud/step")
-                    (gud-finish . "gud/finish")
-                    (gud-nexti . "gud/nexti")
-                    (gud-stepi . "gud/stepi")
-                    (gud-up . "gud/up")
-                    (gud-down . "gud/down")
-                    (gud-goto-info . "info"))
-                  map)
-         (tool-bar-local-item-from-menu
-          (car x) (cdr x) map gud-minor-mode-map)))))
+  (let ((map (make-sparse-keymap)))
+    (dolist (x '((gud-break . "gud/break")
+                (gud-remove . "gud/remove")
+                (gud-print . "gud/print")
+                (gud-pstar . "gud/pstar")
+                (gud-pp . "gud/pp")
+                (gud-watch . "gud/watch")
+                (gud-run . "gud/run")
+                (gud-go . "gud/go")
+                (gud-stop-subjob . "gud/stop")
+                (gud-cont . "gud/cont")
+                (gud-until . "gud/until")
+                (gud-next . "gud/next")
+                (gud-step . "gud/step")
+                (gud-finish . "gud/finish")
+                (gud-nexti . "gud/nexti")
+                (gud-stepi . "gud/stepi")
+                (gud-up . "gud/up")
+                (gud-down . "gud/down")
+                (gud-goto-info . "info"))
+              map)
+      (tool-bar-local-item-from-menu
+       (car x) (cdr x) map gud-minor-mode-map))))
 
 (defun gud-file-name (f)
   "Transform a relative file name to an absolute file name.