# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1077239673 0
# Node ID b49761fd2929a1b5f798aa7f9a31f9ab06d97595
# Parent  a594de19dfd0d9e3ce450ee1443142c9809de541
(gdb-use-colon-colon-notation): Set default to nil for
case of variables defined in compound statements.
(gdb-setup-windows, gdb-source-info, gdb-source-info): Simplify
constructions using switch-to-buffer.

diff -r a594de19dfd0 -r b49761fd2929 lisp/gdb-ui.el
--- a/lisp/gdb-ui.el	Fri Feb 20 01:13:55 2004 +0000
+++ b/lisp/gdb-ui.el	Fri Feb 20 01:14:33 2004 +0000
@@ -179,7 +179,7 @@
   ;;
   (run-hooks 'gdba-mode-hook))
 
-(defcustom gdb-use-colon-colon-notation t
+(defcustom gdb-use-colon-colon-notation nil
   "Non-nil means use FUNCTION::VARIABLE format to display variables in the
 speedbar."
   :type 'boolean
@@ -1622,13 +1622,13 @@
   (other-window 1)
   (switch-to-buffer (gdb-locals-buffer-name))
   (other-window 1)
-  (if (and gdb-view-source
-	   (eq gdb-selected-view 'source))
-      (switch-to-buffer
+  (switch-to-buffer
+   (if (and gdb-view-source
+	    (eq gdb-selected-view 'source))
        (if gud-last-last-frame
 	   (gud-find-file (car gud-last-last-frame))
-	 (gud-find-file gdb-main-file)))
-    (switch-to-buffer (gdb-get-create-buffer 'gdb-assembler-buffer)))
+	 (gud-find-file gdb-main-file))
+     (gdb-get-create-buffer 'gdb-assembler-buffer)))
   (setq gdb-source-window (get-buffer-window (current-buffer)))
   (split-window-horizontally)
   (other-window 1)
@@ -1668,13 +1668,13 @@
     (delete-other-windows)
     (split-window)
     (other-window 1)
-    (if (and gdb-view-source
-	   (eq gdb-selected-view 'source))
-	(switch-to-buffer
+    (switch-to-buffer
+     (if (and gdb-view-source
+	      (eq gdb-selected-view 'source))
 	 (if gud-last-last-frame
 	     (gud-find-file (car gud-last-last-frame))
-	   (gud-find-file gdb-main-file)))
-      (switch-to-buffer (gdb-get-create-buffer 'gdb-assembler-buffer)))
+	   (gud-find-file gdb-main-file))
+       (gdb-get-create-buffer 'gdb-assembler-buffer)))
     (setq gdb-source-window (get-buffer-window (current-buffer)))
     (other-window 1)))
 
@@ -1721,12 +1721,10 @@
     (delete-other-windows)
     (split-window)
     (other-window 1)
-    (if gdb-view-source
-      (switch-to-buffer
-       (if gud-last-last-frame
-	   (gud-find-file (car gud-last-last-frame))
-	 (gud-find-file gdb-main-file)))
-      (switch-to-buffer (gdb-get-create-buffer 'gdb-assembler-buffer)))
+    (switch-to-buffer
+     (if gdb-view-source
+	 (gud-find-file gdb-main-file)
+       (gdb-get-create-buffer 'gdb-assembler-buffer)))
     (setq gdb-source-window (get-buffer-window (current-buffer)))
     (other-window 1)))