master df62a3f85a: Show gdb-mi disassembly over tramp

[Lars Ingebrigtsen]

branch: master
commit df62a3f85ac71bde3b045c19867f142d8e1ead67
Author: Jake Moss <jake.moss@uq.net.au>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Show gdb-mi disassembly over tramp
    
    * lisp/progmodes/gdb-mi.el (gdb-invalidate-disassembly): Show
    gdb-mi disassembly over tramp (bug#57464).
    
    Copyright-paperwork-exempt: yes
---
 lisp/progmodes/gdb-mi.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index bab80719db..6e8032b7ea 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -4033,11 +4033,12 @@ DOC is an optional documentation string."
          (file (gdb-mi--field frame 'fullname))
          (line (gdb-mi--field frame 'line)))
     (if file
-      (format "-data-disassemble -f %s -l %s -n -1 -- 0" file line)
-    ;; If we're unable to get a file name / line for $PC, simply
-    ;; follow $PC, disassembling the next 10 (x ~15 (on IA) ==
-    ;; 150 bytes) instructions.
-    "-data-disassemble -s $pc -e \"$pc + 150\" -- 0"))
+        (format "-data-disassemble -f %s -l %s -n -1 -- 0"
+                (file-local-name file) line)
+      ;; If we're unable to get a file name / line for $PC, simply
+      ;; follow $PC, disassembling the next 10 (x ~15 (on IA) ==
+      ;; 150 bytes) instructions.
+      "-data-disassemble -s $pc -e \"$pc + 150\" -- 0"))
   gdb-disassembly-handler
   ;; We update disassembly only after we have actual frame information
   ;; about all threads, so no there's `update' signal in this list