From: Nick Roberts <nickrob@snap.net.nz>
Date: Tue, 1 Aug 2006 23:16:00 +0000 (+0000)
Subject: (gdb-find-source-frame): Make nil the default value.
X-Git-Tag: emacs-pretest-22.0.90~1143
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a6c7c026a4e3e44ebe700a5ccc6eef33f88f8171;p=emacs.git

(gdb-find-source-frame): Make nil the default value.
(gdb-find-source-frame): New function.
(menu): Add to menu bar.
---

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 595ec545eef..e6c6380bf88 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -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)))