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

1 files changed, 23 insertions, 24 deletions

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 4e56383f3a4..d41e568331b 100644
--- 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.