mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases Activity

; Fix formatting issue of last commit

Browse Source
This commit is contained in:
Michael Albinus 2019-07-13 13:34:33 +02:00
parent 4c4fcc51af
commit f9b434f8e8
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/net/tramp-sh.el
View File

@ -4583,11 +4583,11 @@ Goes through the list `tramp-inline-compress-commands'."
(unless (tramp-send-command-and-check
vec (format "echo %s | %s | %s" magic compress decompress) t)
(throw 'next nil))
(with-current-buffer (tramp-get-buffer vec)
(goto-char (point-min))
(unless (looking-at (regexp-quote magic))
(throw 'next nil)))
(setq found t)))
(with-current-buffer (tramp-get-buffer vec)
(goto-char (point-min))
(unless (looking-at (regexp-quote magic))
(throw 'next nil)))
(setq found t)))
;; Did we find something?
(if found