diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2021-09-11 15:35:51 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2021-09-11 15:35:51 +0200 |
| commit | ef65d717d0a1eeb6530176b59aa03cd09efb5fa9 (patch) | |
| tree | d584da3097eeaa91902e789d50e6c005e6327471 /lisp/net/tramp-gvfs.el | |
| parent | 6343384348180b18be191be64d7106c4866c0675 (diff) | |
| download | emacs-ef65d717d0a1eeb6530176b59aa03cd09efb5fa9.tar.gz emacs-ef65d717d0a1eeb6530176b59aa03cd09efb5fa9.tar.bz2 emacs-ef65d717d0a1eeb6530176b59aa03cd09efb5fa9.zip | |
Tramp code cleanup
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-make-directory): Simplify.
* lisp/net/tramp-sh.el (tramp-methods) <telnet, nc>: Don't use
"%n" marker.
* test/lisp/net/tramp-tests.el (tramp-test13-make-directory): Merge with
`tramp-test-make-directory-helper' and
`tramp-test13-make-directory-with-file-modes'.
(tramp-test44-asynchronous-requests): Use always the same
operation in timer.
Diffstat (limited to 'lisp/net/tramp-gvfs.el')
| -rw-r--r-- | lisp/net/tramp-gvfs.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index eb889bb4f28..25deead8133 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el @@ -1574,10 +1574,10 @@ If FILE-SYSTEM is non-nil, return file system attributes." (when (and parents (not (file-directory-p ldir))) (make-directory ldir parents)) ;; Just do it. - (or (let ((mkdir-succeeded - (tramp-gvfs-send-command - v "gvfs-mkdir" (tramp-gvfs-url-file-name dir)))) - (if mkdir-succeeded (set-file-modes dir (default-file-modes))) + (or (when-let ((mkdir-succeeded + (tramp-gvfs-send-command + v "gvfs-mkdir" (tramp-gvfs-url-file-name dir)))) + (set-file-modes dir (default-file-modes)) mkdir-succeeded) (and parents (file-directory-p dir)) (tramp-error v 'file-error "Couldn't make directory %s" dir)))))) |