[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     08/01/22 23:53:46

Index: lisp/progmodes/gdb-ui.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/gdb-ui.el,v
retrieving revision 1.217
retrieving revision 1.218
diff -u -b -r1.217 -r1.218
--- lisp/progmodes/gdb-ui.el    8 Jan 2008 20:46:13 -0000       1.217
+++ lisp/progmodes/gdb-ui.el    22 Jan 2008 23:53:29 -0000      1.218
@@ -1214,10 +1214,12 @@
 
 (defun gdb-dequeue-input ()
   (let ((queue gdb-input-queue))
-    (and queue
+    (if queue
         (let ((last (car (last queue))))
           (unless (nbutlast queue) (setq gdb-input-queue '()))
-          last))))
+         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)
@@ -3445,7 +3447,8 @@
       (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