emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r106739: Fix GDB mode line for gdb-cr


From: Chong Yidong
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r106739: Fix GDB mode line for gdb-create-source-file-list nil.
Date: Wed, 28 Dec 2011 13:23:47 +0800
User-agent: Bazaar (2.3.1)

------------------------------------------------------------
revno: 106739
fixes bug(s): http://debbugs.gnu.org/10087
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Wed 2011-12-28 13:23:47 +0800
message:
  Fix GDB mode line for gdb-create-source-file-list nil.
  
  * lisp/progmodes/gdb-mi.el (gdb-get-source-file-list)
  (gdb-get-source-file): Move mode line update to gdb-get-source-file.
modified:
  lisp/ChangeLog
  lisp/progmodes/gdb-mi.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-12-25 10:46:49 +0000
+++ b/lisp/ChangeLog    2011-12-28 05:23:47 +0000
@@ -1,3 +1,9 @@
+2011-12-28  Chong Yidong  <address@hidden>
+
+       * progmodes/gdb-mi.el (gdb-get-source-file-list)
+       (gdb-get-source-file): Move mode line update to
+       gdb-get-source-file (Bug#10087).
+
 2011-12-25  Chong Yidong  <address@hidden>
 
        * progmodes/gud.el (gud-gdb-fetch-lines-filter): Just use

=== modified file 'lisp/progmodes/gdb-mi.el'
--- a/lisp/progmodes/gdb-mi.el  2011-12-25 10:46:49 +0000
+++ b/lisp/progmodes/gdb-mi.el  2011-12-28 05:23:47 +0000
@@ -3787,9 +3787,7 @@
   (dolist (buffer (buffer-list))
     (with-current-buffer buffer
       (when (member buffer-file-name gdb-source-file-list)
-       (gdb-init-buffer))))
-  (gdb-force-mode-line-update
-   (propertize "ready" 'face font-lock-variable-name-face)))
+       (gdb-init-buffer)))))
 
 (defun gdb-get-main-selected-frame ()
   "Trigger for `gdb-frame-handler' which uses main current
@@ -4128,7 +4126,9 @@
     (gdb-get-buffer-create 'gdb-breakpoints-buffer)
     (if (and gdb-show-main gdb-main-file)
         (let ((pop-up-windows t))
-          (display-buffer (gud-find-file gdb-main-file))))))
+          (display-buffer (gud-find-file gdb-main-file)))))
+  (gdb-force-mode-line-update
+   (propertize "ready" 'face font-lock-variable-name-face)))
 
 ;;from put-image
 (defun gdb-put-string (putstring pos &optional dprop &rest sprops)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]