]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix a scoping error in tramp-sudoedit.el
authorMichael Albinus <michael.albinus@gmx.de>
Sat, 4 Jan 2020 13:00:39 +0000 (14:00 +0100)
committerMichael Albinus <michael.albinus@gmx.de>
Sat, 4 Jan 2020 13:00:39 +0000 (14:00 +0100)
* lisp/net/tramp-sudoedit.el (tramp-sudoedit-handle-file-system-info):
Fix a scoping error.

lisp/net/tramp-sudoedit.el

index 18b30ad1f4ee8e120772124c2628fea17e1c57ed..08188cefde362a43929c12a21049133ba68ed41c 100644 (file)
@@ -508,21 +508,21 @@ the result will be a local, non-Tramp, file name."
       (tramp-message v 5 "file system info: %s" localname)
       (when (tramp-sudoedit-send-command
             v "df" "--block-size=1" "--output=size,used,avail"
-            (tramp-compat-file-name-unquote localname)))
-      (with-current-buffer (tramp-get-connection-buffer v)
-       (goto-char (point-min))
-       (forward-line)
-       (when (looking-at
-              (eval-when-compile
-                (concat "[[:space:]]*\\([[:digit:]]+\\)"
-                        "[[:space:]]+\\([[:digit:]]+\\)"
-                        "[[:space:]]+\\([[:digit:]]+\\)")))
-         (list (string-to-number (match-string 1))
-               ;; The second value is the used size.  We need the
-               ;; free size.
-               (- (string-to-number (match-string 1))
-                  (string-to-number (match-string 2)))
-               (string-to-number (match-string 3))))))))
+            (tramp-compat-file-name-unquote localname))
+       (with-current-buffer (tramp-get-connection-buffer v)
+         (goto-char (point-min))
+         (forward-line)
+         (when (looking-at
+                (eval-when-compile
+                  (concat "[[:space:]]*\\([[:digit:]]+\\)"
+                          "[[:space:]]+\\([[:digit:]]+\\)"
+                          "[[:space:]]+\\([[:digit:]]+\\)")))
+           (list (string-to-number (match-string 1))
+                 ;; The second value is the used size.  We need the
+                 ;; free size.
+                 (- (string-to-number (match-string 1))
+                    (string-to-number (match-string 2)))
+                 (string-to-number (match-string 3)))))))))
 
 (defun tramp-sudoedit-handle-set-file-times (filename &optional time)
   "Like `set-file-times' for Tramp files."