250 |
(let ((string (buffer-string))) |
(let ((string (buffer-string))) |
251 |
;; remove newline for gud-tooltip-echo-area |
;; remove newline for gud-tooltip-echo-area |
252 |
(substring string 0 (- (length string) 1)))) |
(substring string 0 (- (length string) 1)))) |
253 |
gud-tooltip-echo-area)) |
(or gud-tooltip-echo-area tooltip-use-echo-area))) |
254 |
|
|
255 |
;; If expr is a macro for a function don't print because of possible dangerous |
;; If expr is a macro for a function don't print because of possible dangerous |
256 |
;; side-effects. Also printing a function within a tooltip generates an |
;; side-effects. Also printing a function within a tooltip generates an |
2174 |
(let ((menu (make-sparse-keymap "GDB-UI"))) |
(let ((menu (make-sparse-keymap "GDB-UI"))) |
2175 |
(define-key gud-menu-map [ui] |
(define-key gud-menu-map [ui] |
2176 |
`(menu-item "GDB-UI" ,menu :visible (eq gud-minor-mode 'gdba))) |
`(menu-item "GDB-UI" ,menu :visible (eq gud-minor-mode 'gdba))) |
|
(define-key menu [gdb-restore-windows] |
|
|
'(menu-item "Restore Window Layout" gdb-restore-windows |
|
|
:help "Restore standard layout for debug session.")) |
|
|
(define-key menu [gdb-many-windows] |
|
|
'(menu-item "Display Other Windows" gdb-many-windows |
|
|
:help "Toggle display of locals, stack and breakpoint information" |
|
|
:button (:toggle . gdb-many-windows))) |
|
2177 |
(define-key menu [gdb-use-inferior-io] |
(define-key menu [gdb-use-inferior-io] |
2178 |
(menu-bar-make-toggle toggle-gdb-use-inferior-io-buffer |
(menu-bar-make-toggle toggle-gdb-use-inferior-io-buffer |
2179 |
gdb-use-inferior-io-buffer |
gdb-use-inferior-io-buffer |
2180 |
"Separate inferior IO" "Use separate IO %s" |
"Separate inferior IO" "Use separate IO %s" |
2181 |
"Toggle separate IO for inferior."))) |
"Toggle separate IO for inferior.")) |
2182 |
|
(define-key menu [gdb-many-windows] |
2183 |
|
'(menu-item "Display Other Windows" gdb-many-windows |
2184 |
|
:help "Toggle display of locals, stack and breakpoint information" |
2185 |
|
:button (:toggle . gdb-many-windows))) |
2186 |
|
(define-key menu [gdb-restore-windows] |
2187 |
|
'(menu-item "Restore Window Layout" gdb-restore-windows |
2188 |
|
:help "Restore standard layout for debug session."))) |
2189 |
|
|
2190 |
(defadvice toggle-gdb-use-inferior-io-buffer (after gdb-kill-io-buffer activate) |
(defadvice toggle-gdb-use-inferior-io-buffer (after gdb-kill-io-buffer activate) |
2191 |
(unless gdb-use-inferior-io-buffer |
(unless gdb-use-inferior-io-buffer |