; * lisp/progmodes/gdb-mi.el (gdb-mi-decode): Improve last change.

diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 47589fb6e3420e3361dfd79c18340a020cfb1c3c..4bee7c1dfa2c239fe237a920d9a7f73ff45b10f6 100644 (file)
--- 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))