[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el

[Nick Roberts]

Index: emacs/lisp/progmodes/gud.el
diff -c emacs/lisp/progmodes/gud.el:1.68 emacs/lisp/progmodes/gud.el:1.69
*** emacs/lisp/progmodes/gud.el:1.68    Sat Nov 12 21:26:55 2005
--- emacs/lisp/progmodes/gud.el Sun Nov 13 09:03:36 2005
***************
*** 137,154 ****
                    :enable (and (not gud-running)
                               (memq gud-minor-mode '(gdbmi gdba gdb perldb)))
                  :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
!                      (> (car (window-fringes 0))))))
      ([remove] menu-item "Remove Breakpoint" gud-remove
                    :enable (not gud-running)
                  :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
!                       (> (car (window-fringes 0))))))
      ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak
                  :enable (memq gud-minor-mode
                                '(gdbmi gdba gdb sdb xdb bashdb)))
      ([break]  menu-item "Set Breakpoint" gud-break
                    :enable (not gud-running)
                  :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
!                       (> (car (window-fringes 0))))))
      ([up]     menu-item "Up Stack" gud-up
                  :enable (and (not gud-running)
                               (memq gud-minor-mode
--- 137,154 ----
                    :enable (and (not gud-running)
                               (memq gud-minor-mode '(gdbmi gdba gdb perldb)))
                  :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
!                      (> (car (window-fringes)) 0))))
      ([remove] menu-item "Remove Breakpoint" gud-remove
                    :enable (not gud-running)
                  :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
!                       (> (car (window-fringes)) 0))))
      ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak
                  :enable (memq gud-minor-mode
                                '(gdbmi gdba gdb sdb xdb bashdb)))
      ([break]  menu-item "Set Breakpoint" gud-break
                    :enable (not gud-running)
                  :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
!                       (> (car (window-fringes)) 0))))
      ([up]     menu-item "Up Stack" gud-up
                  :enable (and (not gud-running)
                               (memq gud-minor-mode
***************
*** 424,430 ****
                        start (1+ (match-beginning 0))))
                (if (or (equal (nth 2 var) "0")
                        (and (equal (nth 2 var) "1")
!                            (equal (nth 3 var) "char *")))
                    (speedbar-make-tag-line 'bracket ?? nil nil
                                            (concat (car var) "\t" (nth 4 var))
                                            'gdb-edit-value
--- 424,430 ----
                        start (1+ (match-beginning 0))))
                (if (or (equal (nth 2 var) "0")
                        (and (equal (nth 2 var) "1")
!                            (string-match "char \\*" (nth 3 var))))
                    (speedbar-make-tag-line 'bracket ?? nil nil
                                            (concat (car var) "\t" (nth 4 var))
                                            'gdb-edit-value