From f4c77d44577df0d20990d5d3bfcb95aa2571b983 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 11 Oct 2008 19:57:48 +0000 Subject: [PATCH] (gud-tool-bar-map): Initialize it unconditionally. --- lisp/progmodes/gud.el | 47 +++++++++++++++++++++---------------------- 1 file 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. -- 2.39.5