diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2005-11-12 21:26:55 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2005-11-12 21:26:55 +0000 |
| commit | 007af086d02a6ffa842b67b800a78a008d11c4ab (patch) | |
| tree | c98da1d7f09ee56c0f89e7e10f35f56e4f25985f /lisp | |
| parent | 47b3cf39b4e14ae052c4e0080096d9965fa0c38c (diff) | |
| download | emacs-007af086d02a6ffa842b67b800a78a008d11c4ab.tar.gz | |
(gud-menu-map): Revert to window-fringes for
selected window. This still doesn't work for speedbar.
(gud-speedbar-buttons): Handle string expressions properly.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/gud.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 0365ed1d4f7..64c52101fd6 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -137,21 +137,18 @@ Used to grey out relevant togolbar icons.") :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 - (get-buffer-window (current-buffer)))) 0)))) + (> (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 - (get-buffer-window (current-buffer)))) 0)))) + (> (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 - (get-buffer-window (current-buffer)))) 0)))) + (> (car (window-fringes 0)))))) ([up] menu-item "Up Stack" gud-up :enable (and (not gud-running) (memq gud-minor-mode @@ -425,7 +422,9 @@ required by the caller." (while (string-match "\\." varnum start) (setq depth (1+ depth) start (1+ (match-beginning 0)))) - (if (equal (nth 2 var) "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 |