From 9c86325b69d75e9b17ff468f5a2220597979635f Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 1 Oct 2015 14:52:03 +0300 Subject: [PATCH] ; * lisp/progmodes/gdb-mi.el (gdb-mi-decode): Improve last change. --- lisp/progmodes/gdb-mi.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 47589fb6e34..4bee7c1dfa2 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -2359,11 +2359,11 @@ file names include non-ASCII characters." buffer-file-coding-system)))) (with-temp-buffer (set-buffer-multibyte nil) - (insert (gdb-mi-quote string)) + (prin1 string (current-buffer)) (goto-char (point-min)) - ;; gdb-mi-quote quotes the octal escapes as well, which - ;; interferes with their interpretation by 'read' below. Remove - ;; the extra backslashes to countermand that. + ;; prin1 quotes the octal escapes as well, which interferes with + ;; their interpretation by 'read' below. Remove the extra + ;; backslashes to countermand that. (while (re-search-forward "\\\\\\(\\\\[2-3][0-7][0-7]\\)" nil t) (replace-match "\\1" nil nil)) (goto-char (point-min)) -- 2.39.2