Changeset 4140 for trunk/lisp/progmodes/gdb-ui.el

Timestamp:

08/10/06 11:19:54 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/progmodes/gdb-ui.el (modified) (4 diffs)

trunk/lisp/progmodes/gdb-ui.el

@@ -1359 +1359 @@
-  :version "22.1")
-
+(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'.
@@ -1372 +1389 @@
-        (gdb-display-gdb-buffer)
-      (gdb-frame-gdb-buffer))
+    (if gdb-find-source-frame
-    ;;Try to find source further up stack e.g after signal.
-    
-
-    
-    
-    
-    
-      'delete
+       
+    
+       
+       
+       
+       
+         'delete)
-  (unless (member gdb-inferior-status '("exited" "signal"))
-    (setq gdb-inferior-status "stopped")
@@ -2043 +2061 @@
-
-(defun gdb-set-hollow ()
-
-
-
+
+
+
+
-
-(defun gdb-stack-buffer-name ()
@@ -2778 +2797 @@
-    `(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]
-i
+I
-              :visible (eq gud-minor-mode 'gdba)
-              :help "Toggle separate IO for inferior."