diff lisp/progmodes/gud.el @ 98628:e358c1f2f0ac

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

--- a/lisp/progmodes/gud.el	Sat Oct 11 19:57:25 2008 +0000
+++ b/lisp/progmodes/gud.el	Sat Oct 11 19:57:48 2008 +0000
@@ -272,30 +272,29 @@
   "`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.