* lisp/net/tramp.el (tramp-skeleton-write-region): Fix scoping.

(Bug#65022)

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 31b91b4e91070d73dc947b7465d0659edf07f1de..2fc54c5388b4754a981c5acfec9ae279143cb757 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3527,29 +3527,29 @@ BODY is the backend specific code."
 
             ;; Set the ownership.
              (when need-chown
-               (tramp-set-file-uid-gid filename uid gid)))
-
-          ;; Set extended attributes.  We ignore possible errors,
-          ;; because ACL strings could be incompatible.
-          (when attributes
-            (ignore-errors
-              (set-file-extended-attributes filename attributes)))
-
-          ;; Unlock file.
-          (when file-locked
-            ;; `unlock-file' exists since Emacs 28.1.
-            (tramp-compat-funcall 'unlock-file lockname))
-
-          ;; Sanity check.
-          (unless (equal curbuf (current-buffer))
-            (tramp-error
-             v 'file-error
-             "Buffer has changed from `%s' to `%s'" curbuf (current-buffer)))
-
-          (when (and (null noninteractive)
-                     (or (eq ,visit t) (string-or-null-p ,visit)))
-            (tramp-message v 0 "Wrote %s" filename))
-          (run-hooks 'tramp-handle-write-region-hook))))))
+               (tramp-set-file-uid-gid filename uid gid))
+
+            ;; Set extended attributes.  We ignore possible errors,
+            ;; because ACL strings could be incompatible.
+            (when attributes
+              (ignore-errors
+                (set-file-extended-attributes filename attributes)))
+
+            ;; Unlock file.
+            (when file-locked
+              ;; `unlock-file' exists since Emacs 28.1.
+              (tramp-compat-funcall 'unlock-file lockname))
+
+            ;; Sanity check.
+            (unless (equal curbuf (current-buffer))
+              (tramp-error
+               v 'file-error
+               "Buffer has changed from `%s' to `%s'" curbuf (current-buffer)))
+
+            (when (and (null noninteractive)
+                       (or (eq ,visit t) (string-or-null-p ,visit)))
+              (tramp-message v 0 "Wrote %s" filename))
+            (run-hooks 'tramp-handle-write-region-hook)))))))
 
 ;;; Common file name handler functions for different backends: