diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2015-10-01 14:52:03 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2015-10-01 14:52:03 +0300 |
| commit | 9c86325b69d75e9b17ff468f5a2220597979635f (patch) | |
| tree | 011f48c8a1d70b3c44670be82828fdfa2428f12c /lisp/progmodes/gdb-mi.el | |
| parent | 439f483be35a000e7a3bec6acf395ce4d54d6323 (diff) | |
| download | emacs-9c86325b69d75e9b17ff468f5a2220597979635f.tar.gz | |
; * lisp/progmodes/gdb-mi.el (gdb-mi-decode): Improve last change.
Diffstat (limited to 'lisp/progmodes/gdb-mi.el')
| -rw-r--r-- | lisp/progmodes/gdb-mi.el | 8 |
1 files 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)) |