Mercurial > emacs
changeset 98628:e358c1f2f0ac
(gud-tool-bar-map): Initialize it unconditionally.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 11 Oct 2008 19:57:48 +0000 |
| parents | de01cc2d680e |
| children | 05cb109b16cb |
| files | lisp/progmodes/gud.el |
| diffstat | 1 files changed, 23 insertions(+), 24 deletions(-) [+] |
line wrap: on
line diff
--- 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.