Mercurial > emacs
comparison lisp/progmodes/gud.el @ 66839:b32f2be3a5c8
(gud-menu-map): Revert to window-fringes for
selected window. This still doesn't work for speedbar.
(gud-speedbar-buttons): Handle string expressions properly.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sat, 12 Nov 2005 21:26:55 +0000 |
| parents | b486268fac00 |
| children | 4e016bc4dac4 |
comparison
equal
deleted
inserted
replaced
| 66838:e2e80863801a | 66839:b32f2be3a5c8 |
|---|---|
| 135 (memq gud-minor-mode '(gdbmi gdba gdb dbx jdb)))) | 135 (memq gud-minor-mode '(gdbmi gdba gdb dbx jdb)))) |
| 136 ([until] menu-item "Continue to selection" gud-until | 136 ([until] menu-item "Continue to selection" gud-until |
| 137 :enable (and (not gud-running) | 137 :enable (and (not gud-running) |
| 138 (memq gud-minor-mode '(gdbmi gdba gdb perldb))) | 138 (memq gud-minor-mode '(gdbmi gdba gdb perldb))) |
| 139 :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) | 139 :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) |
| 140 (> (car (window-fringes | 140 (> (car (window-fringes 0)))))) |
| 141 (get-buffer-window (current-buffer)))) 0)))) | |
| 142 ([remove] menu-item "Remove Breakpoint" gud-remove | 141 ([remove] menu-item "Remove Breakpoint" gud-remove |
| 143 :enable (not gud-running) | 142 :enable (not gud-running) |
| 144 :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) | 143 :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) |
| 145 (> (car (window-fringes | 144 (> (car (window-fringes 0)))))) |
| 146 (get-buffer-window (current-buffer)))) 0)))) | |
| 147 ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak | 145 ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak |
| 148 :enable (memq gud-minor-mode | 146 :enable (memq gud-minor-mode |
| 149 '(gdbmi gdba gdb sdb xdb bashdb))) | 147 '(gdbmi gdba gdb sdb xdb bashdb))) |
| 150 ([break] menu-item "Set Breakpoint" gud-break | 148 ([break] menu-item "Set Breakpoint" gud-break |
| 151 :enable (not gud-running) | 149 :enable (not gud-running) |
| 152 :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) | 150 :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) |
| 153 (> (car (window-fringes | 151 (> (car (window-fringes 0)))))) |
| 154 (get-buffer-window (current-buffer)))) 0)))) | |
| 155 ([up] menu-item "Up Stack" gud-up | 152 ([up] menu-item "Up Stack" gud-up |
| 156 :enable (and (not gud-running) | 153 :enable (and (not gud-running) |
| 157 (memq gud-minor-mode | 154 (memq gud-minor-mode |
| 158 '(gdbmi gdba gdb dbx xdb jdb pdb bashdb)))) | 155 '(gdbmi gdba gdb dbx xdb jdb pdb bashdb)))) |
| 159 ([down] menu-item "Down Stack" gud-down | 156 ([down] menu-item "Down Stack" gud-down |
| 423 (let* ((depth 0) (start 0) (char ?+) | 420 (let* ((depth 0) (start 0) (char ?+) |
| 424 (var (car var-list)) (varnum (nth 1 var))) | 421 (var (car var-list)) (varnum (nth 1 var))) |
| 425 (while (string-match "\\." varnum start) | 422 (while (string-match "\\." varnum start) |
| 426 (setq depth (1+ depth) | 423 (setq depth (1+ depth) |
| 427 start (1+ (match-beginning 0)))) | 424 start (1+ (match-beginning 0)))) |
| 428 (if (equal (nth 2 var) "0") | 425 (if (or (equal (nth 2 var) "0") |
| 426 (and (equal (nth 2 var) "1") | |
| 427 (equal (nth 3 var) "char *"))) | |
| 429 (speedbar-make-tag-line 'bracket ?? nil nil | 428 (speedbar-make-tag-line 'bracket ?? nil nil |
| 430 (concat (car var) "\t" (nth 4 var)) | 429 (concat (car var) "\t" (nth 4 var)) |
| 431 'gdb-edit-value | 430 'gdb-edit-value |
| 432 nil | 431 nil |
| 433 (if (and (nth 5 var) | 432 (if (and (nth 5 var) |