[Emacs-diffs] /srv/bzr/emacs/trunk r106530: progmodes/gdb-mi.el (gdb-init-1): Condition execution of gdb-get-source-file-list on gdb-create-source-file-list.

[Nick Roberts]

------------------------------------------------------------
revno: 106530
committer: Nick Roberts <address@hidden>
branch nick: trunk
timestamp: Sun 2011-11-27 21:33:25 +1300
message:
  progmodes/gdb-mi.el (gdb-init-1): Condition execution of 
gdb-get-source-file-list on gdb-create-source-file-list.
modified:
  lisp/ChangeLog
  lisp/progmodes/gdb-mi.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-11-27 04:43:11 +0000
+++ b/lisp/ChangeLog    2011-11-27 08:33:25 +0000
@@ -1,3 +1,8 @@
+2011-11-27  Nick Roberts  <address@hidden>
+
+       * progmodes/gdb-mi.el (gdb-init-1): Condition execution of
+         gdb-get-source-file-list on gdb-create-source-file-list.
+
 2011-11-26  Eli Zaretskii  <address@hidden>
 
        * whitespace.el (whitespace-newline): Use a different foreground

=== modified file 'lisp/progmodes/gdb-mi.el'
--- a/lisp/progmodes/gdb-mi.el  2011-11-20 19:35:27 +0000
+++ b/lisp/progmodes/gdb-mi.el  2011-11-27 08:33:25 +0000
@@ -873,13 +873,13 @@
     (gdb-input (list "-gdb-set non-stop 1" 'gdb-non-stop-handler)))
 
   ;; find source file and compilation directory here
-  (gdb-input
+  (if gdb-create-source-file-list
+      (gdb-input
                                         ; Needs GDB 6.2 onwards.
-   (list "-file-list-exec-source-files" 'gdb-get-source-file-list))
-  (if gdb-create-source-file-list
-      (gdb-input
+       (list "-file-list-exec-source-files" 'gdb-get-source-file-list)))
+  (gdb-input
                                         ; Needs GDB 6.0 onwards.
-       (list "-file-list-exec-source-file" 'gdb-get-source-file)))
+   (list "-file-list-exec-source-file" 'gdb-get-source-file))
   (gdb-input
    (list "-gdb-show prompt" 'gdb-get-prompt)))