diff options
| author | Chong Yidong <cyd@gnu.org> | 2011-12-28 13:23:47 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2011-12-28 13:23:47 +0800 |
| commit | 51281b3202901a846f7427e630a9615b1d55eac8 (patch) | |
| tree | 2766a9a765b5445ec799ae4200de28bf760ee84b /lisp/progmodes/gdb-mi.el | |
| parent | 29a8b279e3a7764e424bc66711d1f79bf75242de (diff) | |
| download | emacs-51281b3202901a846f7427e630a9615b1d55eac8.tar.gz | |
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
Diffstat (limited to 'lisp/progmodes/gdb-mi.el')
| -rw-r--r-- | lisp/progmodes/gdb-mi.el | 8 |
1 files changed, 4 insertions, 4 deletions
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) |