diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2020-01-04 14:00:39 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2020-01-04 14:00:39 +0100 |
| commit | 28727444f1c12f0b5f1fffa4cfa66032f8f16c2d (patch) | |
| tree | 83ff8e2d6ab9e66be6185830b7eba6cb4a8a5753 /lisp | |
| parent | 6cbdd048bda6f1fe1cb72e72627ee63ee3174b7d (diff) | |
| download | emacs-28727444f1c12f0b5f1fffa4cfa66032f8f16c2d.tar.gz | |
Fix a scoping error in tramp-sudoedit.el
* lisp/net/tramp-sudoedit.el (tramp-sudoedit-handle-file-system-info):
Fix a scoping error.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/tramp-sudoedit.el | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/lisp/net/tramp-sudoedit.el b/lisp/net/tramp-sudoedit.el index 18b30ad1f4e..08188cefde3 100644 --- a/lisp/net/tramp-sudoedit.el +++ b/lisp/net/tramp-sudoedit.el @@ -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." |