/[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.68 by nickrob, Sat Nov 12 21:26:55 2005 UTC revision 1.69 by nickrob, Sun Nov 13 09:03:36 2005 UTC
# Line 137  Used to grey out relevant togolbar icons Line 137  Used to grey out relevant togolbar icons
137                    :enable (and (not gud-running)                    :enable (and (not gud-running)
138                                 (memq gud-minor-mode '(gdbmi gdba gdb perldb)))                                 (memq gud-minor-mode '(gdbmi gdba gdb perldb)))
139                    :visible (not (and (memq gud-minor-mode '(gdbmi gdba))                    :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
140                       (> (car (window-fringes 0))))))                       (> (car (window-fringes)) 0))))
141      ([remove]   menu-item "Remove Breakpoint" gud-remove      ([remove]   menu-item "Remove Breakpoint" gud-remove
142                    :enable (not gud-running)                    :enable (not gud-running)
143                    :visible (not (and (memq gud-minor-mode '(gdbmi gdba))                    :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
144                        (> (car (window-fringes 0))))))                        (> (car (window-fringes)) 0))))
145      ([tbreak]   menu-item "Temporary Breakpoint" gud-tbreak      ([tbreak]   menu-item "Temporary Breakpoint" gud-tbreak
146                    :enable (memq gud-minor-mode                    :enable (memq gud-minor-mode
147                                  '(gdbmi gdba gdb sdb xdb bashdb)))                                  '(gdbmi gdba gdb sdb xdb bashdb)))
148      ([break]    menu-item "Set Breakpoint" gud-break      ([break]    menu-item "Set Breakpoint" gud-break
149                    :enable (not gud-running)                    :enable (not gud-running)
150                    :visible (not (and (memq gud-minor-mode '(gdbmi gdba))                    :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
151                        (> (car (window-fringes 0))))))                        (> (car (window-fringes)) 0))))
152      ([up]       menu-item "Up Stack" gud-up      ([up]       menu-item "Up Stack" gud-up
153                    :enable (and (not gud-running)                    :enable (and (not gud-running)
154                                 (memq gud-minor-mode                                 (memq gud-minor-mode
# Line 424  required by the caller." Line 424  required by the caller."
424                          start (1+ (match-beginning 0))))                          start (1+ (match-beginning 0))))
425                  (if (or (equal (nth 2 var) "0")                  (if (or (equal (nth 2 var) "0")
426                          (and (equal (nth 2 var) "1")                          (and (equal (nth 2 var) "1")
427                               (equal (nth 3 var) "char *")))                               (string-match "char \\*" (nth 3 var))))
428                      (speedbar-make-tag-line 'bracket ?? nil nil                      (speedbar-make-tag-line 'bracket ?? nil nil
429                                              (concat (car var) "\t" (nth 4 var))                                              (concat (car var) "\t" (nth 4 var))
430                                              'gdb-edit-value                                              'gdb-edit-value

Legend:
Removed from v.1.68  
changed lines
  Added in v.1.69

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