Mercurial > emacs

comparison lisp/progmodes/gud.el @ 66846:4e016bc4dac4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gud-menu-map): Move parentheses (again). (gud-speedbar-buttons): Match on "const char *" too.
author Nick Roberts <nickrob@snap.net.nz>
date Sun, 13 Nov 2005 09:03:36 +0000
parents b32f2be3a5c8
children a3db1720a101
comparison
equal deleted inserted replaced
66845:607fc7bd4896 66846:4e016bc4dac4
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 0)))))) 140 (> (car (window-fringes)) 0))))
141 ([remove] menu-item "Remove Breakpoint" gud-remove 141 ([remove] menu-item "Remove Breakpoint" gud-remove
142 :enable (not gud-running) 142 :enable (not gud-running)
143 :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) 143 :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
144 (> (car (window-fringes 0)))))) 144 (> (car (window-fringes)) 0))))
145 ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak 145 ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak
146 :enable (memq gud-minor-mode 146 :enable (memq gud-minor-mode
147 '(gdbmi gdba gdb sdb xdb bashdb))) 147 '(gdbmi gdba gdb sdb xdb bashdb)))
148 ([break] menu-item "Set Breakpoint" gud-break 148 ([break] menu-item "Set Breakpoint" gud-break
149 :enable (not gud-running) 149 :enable (not gud-running)
150 :visible (not (and (memq gud-minor-mode '(gdbmi gdba)) 150 :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
151 (> (car (window-fringes 0)))))) 151 (> (car (window-fringes)) 0))))
152 ([up] menu-item "Up Stack" gud-up 152 ([up] menu-item "Up Stack" gud-up
153 :enable (and (not gud-running) 153 :enable (and (not gud-running)
154 (memq gud-minor-mode 154 (memq gud-minor-mode
155 '(gdbmi gdba gdb dbx xdb jdb pdb bashdb)))) 155 '(gdbmi gdba gdb dbx xdb jdb pdb bashdb))))
156 ([down] menu-item "Down Stack" gud-down 156 ([down] menu-item "Down Stack" gud-down
422 (while (string-match "\\." varnum start) 422 (while (string-match "\\." varnum start)
423 (setq depth (1+ depth) 423 (setq depth (1+ depth)
424 start (1+ (match-beginning 0)))) 424 start (1+ (match-beginning 0))))
425 (if (or (equal (nth 2 var) "0") 425 (if (or (equal (nth 2 var) "0")
426 (and (equal (nth 2 var) "1") 426 (and (equal (nth 2 var) "1")
427 (equal (nth 3 var) "char *"))) 427 (string-match "char \\*" (nth 3 var))))
428 (speedbar-make-tag-line 'bracket ?? nil nil 428 (speedbar-make-tag-line 'bracket ?? nil nil
429 (concat (car var) "\t" (nth 4 var)) 429 (concat (car var) "\t" (nth 4 var))
430 'gdb-edit-value 430 'gdb-edit-value
431 nil 431 nil
432 (if (and (nth 5 var) 432 (if (and (nth 5 var)