# HG changeset patch # User Chong Yidong # Date 1223755068 0 # Node ID e358c1f2f0ac4de3145f2fcef72aa1befad837c2 # Parent de01cc2d680ed6a7867a916342d2b4c1d80c118c (gud-tool-bar-map): Initialize it unconditionally. diff -r de01cc2d680e -r e358c1f2f0ac lisp/progmodes/gud.el --- 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.