/[emacs]/emacs/lisp/progmodes/gud.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gud.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.58 by nickrob, Mon Oct 10 12:25:04 2005 UTC revision 1.59 by wohler, Sat Oct 15 05:41:09 2005 UTC
# Line 5  Line 5 
5  ;; Keywords: unix, tools  ;; Keywords: unix, tools
6    
7  ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003,  ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003,
8  ;; 2004, 2005 Free Software Foundation, Inc.  ;;  2004, 2005 Free Software Foundation, Inc.
9    
10  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
11    
# Line 197  Used to grey out relevant togolbar icons Line 197  Used to grey out relevant togolbar icons
197  (defvar gud-tool-bar-map  (defvar gud-tool-bar-map
198    (if (display-graphic-p)    (if (display-graphic-p)
199        (let ((map (make-sparse-keymap)))        (let ((map (make-sparse-keymap)))
200          (dolist (x '((gud-break . "gud-break")          (dolist (x '((gud-break . "gud/break")
201                       (gud-remove . "gud-remove")                       (gud-remove . "gud/remove")
202                       (gud-print . "gud-print")                       (gud-print . "gud/print")
203                       (gud-pstar . "gud-pstar")                       (gud-pstar . "gud/pstar")
204                       (gud-watch . "gud-watch")                       (gud-watch . "gud/watch")
205                       (gud-cont . "gud-cont")                       (gud-cont . "gud/cont")
206                       (gud-until . "gud-until")                       (gud-until . "gud/until")
207                       (gud-finish . "gud-finish")                       (gud-finish . "gud/finish")
208                       (gud-run . "gud-run")                       (gud-run . "gud/run")
209                       ;; gud-s, gud-si etc. instead of gud-step,                       ;; gud-s, gud-si etc. instead of gud-step,
210                       ;; gud-stepi, to avoid file-name clashes on DOS                       ;; gud-stepi, to avoid file-name clashes on DOS
211                       ;; 8+3 filesystems.                       ;; 8+3 filesystems.
212                       (gud-next . "gud-n")                       (gud-next . "gud/n")
213                       (gud-step . "gud-s")                       (gud-step . "gud/s")
214                       (gud-nexti . "gud-ni")                       (gud-nexti . "gud/ni")
215                       (gud-stepi . "gud-si")                       (gud-stepi . "gud/si")
216                       (gud-up . "gud-up")                       (gud-up . "gud/up")
217                       (gud-down . "gud-down")                       (gud-down . "gud/down")
218                       (gud-goto-info . "info"))                       (gud-goto-info . "info"))
219                     map)                     map)
220            (tool-bar-local-item-from-menu            (tool-bar-local-item-from-menu

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26