diff options
| author | Jim Porter | 2021-05-01 11:56:19 +0200 |
|---|---|---|
| committer | Michael Albinus | 2021-05-01 11:56:19 +0200 |
| commit | e61688f87db985e8f12631d609d74f9a12e5839b (patch) | |
| tree | 4e2f5ea9d8604ac9b57dd44d4ad59f54b194e647 | |
| parent | 101a049f551b4013e54fdef0d87a74ec5dfd05e0 (diff) | |
| download | emacs-e61688f87db985e8f12631d609d74f9a12e5839b.tar.gz emacs-e61688f87db985e8f12631d609d74f9a12e5839b.zip | |
Fix setting breakpoints in M-x gdb for remote files. Don't merge
* lisp/progmodes/gdb-mi.el (gdb-jsonify-buffer): Fix modification
of GDB/MI "fullname" property for remote files
| -rw-r--r-- | lisp/progmodes/gdb-mi.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 65fe997341c..1b2642fae70 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el | |||
| @@ -2696,7 +2696,7 @@ If `default-directory' is remote, full file names are adapted accordingly." | |||
| 2696 | (let ((remote (file-remote-p default-directory))) | 2696 | (let ((remote (file-remote-p default-directory))) |
| 2697 | (when remote | 2697 | (when remote |
| 2698 | (goto-char (point-min)) | 2698 | (goto-char (point-min)) |
| 2699 | (while (re-search-forward "[\\[,]fullname=\"\\(.+\\)\"" nil t) | 2699 | (while (re-search-forward "[\\[,]fullname=\"\\(.+?\\)\"" nil t) |
| 2700 | (replace-match (concat remote "\\1") nil nil nil 1)))) | 2700 | (replace-match (concat remote "\\1") nil nil nil 1)))) |
| 2701 | (goto-char (point-min)) | 2701 | (goto-char (point-min)) |
| 2702 | (when fix-key | 2702 | (when fix-key |