Mercurial > emacs

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gud-tool-bar-map): Initialize it unconditionally.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 11 Oct 2008 19:57:48 +0000
parents 72d94dcf4480
children 33f78208d5f0
comparison
equal deleted inserted replaced
98627:de01cc2d680e 98628:e358c1f2f0ac
270 ;; Will inherit from comint-mode via define-derived-mode. 270 ;; Will inherit from comint-mode via define-derived-mode.
271 (make-sparse-keymap) 271 (make-sparse-keymap)
272 "`gud-mode' keymap.") 272 "`gud-mode' keymap.")
273 273
274 (defvar gud-tool-bar-map 274 (defvar gud-tool-bar-map
275 (if (display-graphic-p) 275 (let ((map (make-sparse-keymap)))
276 (let ((map (make-sparse-keymap))) 276 (dolist (x '((gud-break . "gud/break")
277 (dolist (x '((gud-break . "gud/break") 277 (gud-remove . "gud/remove")
278 (gud-remove . "gud/remove") 278 (gud-print . "gud/print")
279 (gud-print . "gud/print") 279 (gud-pstar . "gud/pstar")
280 (gud-pstar . "gud/pstar") 280 (gud-pp . "gud/pp")
281 (gud-pp . "gud/pp") 281 (gud-watch . "gud/watch")
282 (gud-watch . "gud/watch") 282 (gud-run . "gud/run")
283 (gud-run . "gud/run") 283 (gud-go . "gud/go")
284 (gud-go . "gud/go") 284 (gud-stop-subjob . "gud/stop")
285 (gud-stop-subjob . "gud/stop") 285 (gud-cont . "gud/cont")
286 (gud-cont . "gud/cont") 286 (gud-until . "gud/until")
287 (gud-until . "gud/until") 287 (gud-next . "gud/next")
288 (gud-next . "gud/next") 288 (gud-step . "gud/step")
289 (gud-step . "gud/step") 289 (gud-finish . "gud/finish")
290 (gud-finish . "gud/finish") 290 (gud-nexti . "gud/nexti")
291 (gud-nexti . "gud/nexti") 291 (gud-stepi . "gud/stepi")
292 (gud-stepi . "gud/stepi") 292 (gud-up . "gud/up")
293 (gud-up . "gud/up") 293 (gud-down . "gud/down")
294 (gud-down . "gud/down") 294 (gud-goto-info . "info"))
295 (gud-goto-info . "info")) 295 map)
296 map) 296 (tool-bar-local-item-from-menu
297 (tool-bar-local-item-from-menu 297 (car x) (cdr x) map gud-minor-mode-map))))
298 (car x) (cdr x) map gud-minor-mode-map)))))
299 298
300 (defun gud-file-name (f) 299 (defun gud-file-name (f)
301 "Transform a relative file name to an absolute file name. 300 "Transform a relative file name to an absolute file name.
302 Uses `gud-<MINOR-MODE>-directories' to find the source files." 301 Uses `gud-<MINOR-MODE>-directories' to find the source files."
303 ;; When `default-directory' is a remote file name, prepend its 302 ;; When `default-directory' is a remote file name, prepend its