diff options
| author | Michael Albinus | 2020-01-04 14:00:39 +0100 |
|---|---|---|
| committer | Michael Albinus | 2020-01-04 14:00:39 +0100 |
| commit | 28727444f1c12f0b5f1fffa4cfa66032f8f16c2d (patch) | |
| tree | 83ff8e2d6ab9e66be6185830b7eba6cb4a8a5753 | |
| parent | 6cbdd048bda6f1fe1cb72e72627ee63ee3174b7d (diff) | |
| download | emacs-28727444f1c12f0b5f1fffa4cfa66032f8f16c2d.tar.gz emacs-28727444f1c12f0b5f1fffa4cfa66032f8f16c2d.zip | |
Fix a scoping error in tramp-sudoedit.el
* lisp/net/tramp-sudoedit.el (tramp-sudoedit-handle-file-system-info):
Fix a scoping error.
| -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." | |||
| 508 | (tramp-message v 5 "file system info: %s" localname) | 508 | (tramp-message v 5 "file system info: %s" localname) |
| 509 | (when (tramp-sudoedit-send-command | 509 | (when (tramp-sudoedit-send-command |
| 510 | v "df" "--block-size=1" "--output=size,used,avail" | 510 | v "df" "--block-size=1" "--output=size,used,avail" |
| 511 | (tramp-compat-file-name-unquote localname))) | 511 | (tramp-compat-file-name-unquote localname)) |
| 512 | (with-current-buffer (tramp-get-connection-buffer v) | 512 | (with-current-buffer (tramp-get-connection-buffer v) |
| 513 | (goto-char (point-min)) | 513 | (goto-char (point-min)) |
| 514 | (forward-line) | 514 | (forward-line) |
| 515 | (when (looking-at | 515 | (when (looking-at |
| 516 | (eval-when-compile | 516 | (eval-when-compile |
| 517 | (concat "[[:space:]]*\\([[:digit:]]+\\)" | 517 | (concat "[[:space:]]*\\([[:digit:]]+\\)" |
| 518 | "[[:space:]]+\\([[:digit:]]+\\)" | 518 | "[[:space:]]+\\([[:digit:]]+\\)" |
| 519 | "[[:space:]]+\\([[:digit:]]+\\)"))) | 519 | "[[:space:]]+\\([[:digit:]]+\\)"))) |
| 520 | (list (string-to-number (match-string 1)) | 520 | (list (string-to-number (match-string 1)) |
| 521 | ;; The second value is the used size. We need the | 521 | ;; The second value is the used size. We need the |
| 522 | ;; free size. | 522 | ;; free size. |
| 523 | (- (string-to-number (match-string 1)) | 523 | (- (string-to-number (match-string 1)) |
| 524 | (string-to-number (match-string 2))) | 524 | (string-to-number (match-string 2))) |
| 525 | (string-to-number (match-string 3)))))))) | 525 | (string-to-number (match-string 3))))))))) |
| 526 | 526 | ||
| 527 | (defun tramp-sudoedit-handle-set-file-times (filename &optional time) | 527 | (defun tramp-sudoedit-handle-set-file-times (filename &optional time) |
| 528 | "Like `set-file-times' for Tramp files." | 528 | "Like `set-file-times' for Tramp files." |