From 51281b3202901a846f7427e630a9615b1d55eac8 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 28 Dec 2011 13:23:47 +0800 Subject: [PATCH] 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. Fixes: debbugs:10087 --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/gdb-mi.el | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f5b3c92f8c2..78cc1862c2f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2011-12-28 Chong Yidong + + * 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 * progmodes/gud.el (gud-gdb-fetch-lines-filter): Just use diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 128ff4bb143..1c38c59bba6 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -3787,9 +3787,7 @@ is set in them." (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 @@ buffers, if required." (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) -- 2.11.4.GIT