[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 12427976c8a: * lisp/net/tramp.el (tramp-skeleton-write-region): F
From: |
Michael Albinus |
Subject: |
master 12427976c8a: * lisp/net/tramp.el (tramp-skeleton-write-region): Fix scoping. |
Date: |
Fri, 4 Aug 2023 00:20:08 -0400 (EDT) |
branch: master
commit 12427976c8a8157fc2fe8ffa3a7fe157a8fe2e45
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
* lisp/net/tramp.el (tramp-skeleton-write-region): Fix scoping.
(Bug#65022)
---
lisp/net/tramp.el | 46 +++++++++++++++++++++++-----------------------
1 file changed, 23 insertions(+), 23 deletions(-)
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 31b91b4e910..2fc54c5388b 100644
--- 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:
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 12427976c8a: * lisp/net/tramp.el (tramp-skeleton-write-region): Fix scoping.,
Michael Albinus <=