procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(Bug#65022)
This commit is contained in:
Michael Albinus 2023-08-04 06:19:57 +02:00
parent e9672b147f
commit 12427976c8
1 changed files with 19 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
lisp/net/tramp.el
View file

@ -3527,29 +3527,29 @@ BODY is the backend specific code."
;; Set the ownership.
(when need-chown
(tramp-set-file-uid-gid filename uid gid)))
(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)))
;; 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))
;; 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)))
;; 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))))))
(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: