From 75d9fbec8853c2040bbb0d5a447894cca86b9df9 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sat, 9 Oct 2021 18:42:11 +0200 Subject: Tramp code cleanup * lisp/net/tramp.el (tramp-remote-path): Adapt docstring. (tramp-action-login, tramp-action-password, tramp-action-yesno) (tramp-action-yn, tramp-process-actions): Move let-binding of `enable-recursive-minibuffers' up. (tramp-handle-make-process, tramp-handle-write-region): * lisp/net/tramp-adb.el (tramp-adb-handle-write-region) (tramp-adb-handle-make-process): * lisp/net/tramp-sh.el (tramp-sh-handle-make-process) (tramp-sh-handle-write-region): * lisp/net/tramp-smb.el (tramp-smb-handle-write-region): * lisp/net/tramp-sshfs.el (tramp-sshfs-handle-write-region): Use `string-or-null-p'. --- lisp/net/tramp-sshfs.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/net/tramp-sshfs.el') diff --git a/lisp/net/tramp-sshfs.el b/lisp/net/tramp-sshfs.el index 1bd4c5dc1c8..a1007863453 100644 --- a/lisp/net/tramp-sshfs.el +++ b/lisp/net/tramp-sshfs.el @@ -320,7 +320,7 @@ arguments to pass to the OPERATION." ;; The end. (when (and (null noninteractive) - (or (eq visit t) (null visit) (stringp visit))) + (or (eq visit t) (string-or-null-p visit))) (tramp-message v 0 "Wrote %s" filename)) (run-hooks 'tramp-handle-write-region-hook)))) -- cgit v1.2.3