mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

(gdb-find-source-frame): Make nil the default value.

Browse Source 
(gdb-find-source-frame): New function.
(menu): Add to menu bar.
This commit is contained in:
Nick Roberts 2006-08-01 23:16:00 +00:00
parent 68b9e79b2d
commit a6c7c026a4
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/progmodes/gdb-ui.el
View File

@ -1358,12 +1358,23 @@ directives."
:type 'boolean
:version "22.1")
(defcustom gdb-find-source-frame t
"Non-nil means try to find source further up stack e.g after signal."
(defcustom gdb-find-source-frame nil
"Non-nil means try to find a source frame further up stack e.g after signal."
:group 'gud
:type 'boolean
:version "22.1")
(defun gdb-find-source-frame (arg)
"Toggle trying to find a source frame further up stack.
With arg, look for a source frame further up stack iff arg is positive."
(interactive "P")
(setq gdb-find-source-frame
(if (null arg)
(not gdb-find-source-frame)
(> (prefix-numeric-value arg) 0)))
(message (format "Looking for source frame %sabled"
(if gdb-find-source-frame "en" "dis"))))
(defun gdb-stopped (ignored)
"An annotation handler for `stopped'.
It is just like `gdb-stopping', except that if we already set the output
@ -2785,8 +2796,13 @@ corresponding to the mode line clicked."
(define-key gud-menu-map [ui]
`(menu-item (if (eq gud-minor-mode 'gdba) "GDB-UI" "GDB-MI")
,menu :visible (memq gud-minor-mode '(gdbmi gdba))))
(define-key menu [gdb-find-source-frame]
'(menu-item "Look For Source Frame" gdb-find-source-frame
:visible (eq gud-minor-mode 'gdba)
:help "Toggle look for source frame."
:button (:toggle . gdb-find-source-frame)))
(define-key menu [gdb-use-separate-io]
'(menu-item "Separate inferior IO" gdb-use-separate-io-buffer
'(menu-item "Separate Inferior IO" gdb-use-separate-io-buffer
:visible (eq gud-minor-mode 'gdba)
:help "Toggle separate IO for inferior."
:button (:toggle . gdb-use-separate-io-buffer)))