aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2020-01-04 14:00:39 +0100
committerMichael Albinus2020-01-04 14:00:39 +0100
commit28727444f1c12f0b5f1fffa4cfa66032f8f16c2d (patch)
tree83ff8e2d6ab9e66be6185830b7eba6cb4a8a5753
parent6cbdd048bda6f1fe1cb72e72627ee63ee3174b7d (diff)
downloademacs-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.el30
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."