mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(gdb-dequeue-input): Make doubly sure

Browse Source 
session doesn't hang because gdb-pending-triggers is non-nil.
(gdb-frame-handler): Use buffer-file-name instead of
buffer-name in case of duplicate file names.
This commit is contained in:
Nick Roberts 2008-01-10 10:27:02 +00:00
parent 20aa98dd71
commit 78971dff70
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/progmodes/gdb-ui.el
View File

@ -1214,10 +1214,12 @@ This filter may simply queue input for a later time."
(defun gdb-dequeue-input ()
(let ((queue gdb-input-queue))
(and queue
(let ((last (car (last queue))))
(unless (nbutlast queue) (setq gdb-input-queue '()))
last))))
(if queue
(let ((last (car (last queue))))
(unless (nbutlast queue) (setq gdb-input-queue '()))
last)
;; This should be nil here anyway but set it just to make sure.
(setq gdb-pending-triggers nil))))
(defun gdb-send-item (item)
(setq gdb-flush-pending-output nil)
@ -3442,7 +3444,8 @@ BUFFER nil or omitted means use the current buffer."
(let ((buffer (marker-buffer gud-overlay-arrow-position))
(position (marker-position gud-overlay-arrow-position)))
(when (and buffer
(string-equal (buffer-name buffer)
(string-equal (file-name-nondirectory
(buffer-file-name buffer))
(file-name-nondirectory (match-string 3))))
(with-current-buffer buffer
(setq fringe-indicator-alist