* tramp.el (tramp-skeleton-write-region):HEADmaster

* tramp-cache.el (tramp-flush-file-upper-properties):
* tramp-sh.el (tramp-sh-handle-insert-directory): Use `when-let*'
consequently.

* tramp-cmds.el (tramp-file-name-with-method): Add :initialize and
:set functions.
(tramp-set-file-name-with-method): New defun.
(with-tramp-file-name-with-method): Filter out enabled methods.

* tramp-compat.el: Add TODO.

6 files changed, 72 insertions, 36 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 80f4ebed..8e2bb9e3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,17 @@
+2025-10-20  Michael Albinus  <[email protected]>
+
+	* tramp.el (tramp-skeleton-write-region):
+	* tramp-cache.el (tramp-flush-file-upper-properties):
+	* tramp-sh.el (tramp-sh-handle-insert-directory): Use `when-let*'
+	consequently.
+
+	* tramp-cmds.el (tramp-file-name-with-method): Add :initialize and
+	:set functions.
+	(tramp-set-file-name-with-method): New defun.
+	(with-tramp-file-name-with-method): Filter out enabled methods.
+
+	* tramp-compat.el: Add TODO.
+
 2025-10-15  Michael Albinus  <[email protected]>
 
 	* tramp.el (tramp-methods): Adapt docstring.
diff --git a/lisp/tramp-cache.el b/lisp/tramp-cache.el
index c8223d85..941c502f 100644
--- a/lisp/tramp-cache.el
+++ b/lisp/tramp-cache.el
@@ -253,19 +253,19 @@ Return VALUE."
 
 (defun tramp-flush-file-upper-properties (key file)
   "Remove some properties of FILE's upper directory."
-  (when (file-name-absolute-p file)
-    ;; `file-name-directory' can return nil, for example for "~".
-    (when-let* ((file (file-name-directory file))
-		(file (directory-file-name file)))
-      (setq key (tramp-file-name-unify key file))
-      (unless (eq key tramp-cache-undefined)
-	(dolist (property (hash-table-keys (tramp-get-hash-table key)))
-	  (when (string-match-p
-		 (rx
-		  bos (| "directory-" "file-name-all-completions"
-			 "file-entries"))
-		 property)
-	    (tramp-flush-file-property key file property)))))))
+  (when-let* (((file-name-absolute-p file))
+	      ;; `file-name-directory' can return nil, for example for "~".
+	      (file (file-name-directory file))
+	      (file (directory-file-name file)))
+    (setq key (tramp-file-name-unify key file))
+    (unless (eq key tramp-cache-undefined)
+      (dolist (property (hash-table-keys (tramp-get-hash-table key)))
+	(when (string-match-p
+	       (rx
+		bos (| "directory-" "file-name-all-completions"
+		       "file-entries"))
+	       property)
+	  (tramp-flush-file-property key file property))))))
 
 ;;;###tramp-autoload
 (defun tramp-flush-file-properties (key file)
diff --git a/lisp/tramp-cmds.el b/lisp/tramp-cmds.el
index a4f74383..db373750 100644
--- a/lisp/tramp-cmds.el
+++ b/lisp/tramp-cmds.el
@@ -632,13 +632,28 @@ For details, see `tramp-rename-files'."
   "Which method to be used in `tramp-file-name-with-sudo'."
   :group 'tramp
   :version "31.1"
+  ;; It should be a choice of constant strings.  See
+  ;; `with-tramp-file-name-with-method'.
   :type '(choice (const "su") (const "surs")
 		 (const "sudo") (const "sudors")
 		 (const "doas")
 		 (const "run0")
 		 (const "ksu"))
+  :initialize #'custom-initialize-default
+  :set #'tramp-set-file-name-with-method
   :link '(tramp-info-link :tag "Tramp manual" tramp-file-name-with-method))
 
+(defun tramp-set-file-name-with-method (symbol value)
+  "Set SYMBOL to value VALUE.
+Used in user option `tramp-file-name-with-method'.  If VALUE is an
+optional method, enable it."
+  (unless (string-equal (symbol-value symbol) value)
+    ;; Enable optional method.
+    (tramp-enable-method value)
+    ;; Set the value.
+    (when (assoc value tramp-methods)
+      (set-default symbol value))))
+
 (defun tramp-get-file-name-with-method ()
   "Return connection-local value of `tramp-file-name-with-method'."
   (tramp-compat-connection-local-value tramp-file-name-with-method))
@@ -651,8 +666,11 @@ Run BODY."
           (if current-prefix-arg
 	      (completing-read
 	       "Tramp method: "
-               (mapcar
-		#'cadr (cdr (get 'tramp-file-name-with-method 'custom-type)))
+	       ;; Filter out enabled methods.
+	       (seq-intersection
+		(mapcar #'car tramp-methods)
+		(mapcar
+		 #'cadr (cdr (get 'tramp-file-name-with-method 'custom-type))))
                nil t (tramp-get-file-name-with-method))
             (tramp-get-file-name-with-method))))
      ,@body))
diff --git a/lisp/tramp-compat.el b/lisp/tramp-compat.el
index 5d463bc0..93190fec 100644
--- a/lisp/tramp-compat.el
+++ b/lisp/tramp-compat.el
@@ -259,5 +259,8 @@ value is the default binding of the variable."
 ;;   instead of `condition-case' when the origin of an error shall be
 ;;   kept, for example when the HANDLER propagates the error with
 ;;   `(signal (car err) (cdr err)'.
+;;
+;; * Starting with Emacs 30.1, use '(_ VALUEFORM)' instead of
+;;   '(VALUEFORM)' in 'if-let*/when-let*/and-let*'.
 
 ;;; tramp-compat.el ends here
diff --git a/lisp/tramp-sh.el b/lisp/tramp-sh.el
index 98e3cae5..61f64e4c 100644
--- a/lisp/tramp-sh.el
+++ b/lisp/tramp-sh.el
@@ -2934,15 +2934,15 @@ The method used must be an out-of-band method."
 	  ;; Try to insert the amount of free space.
 	  (goto-char (point-min))
 	  ;; First find the line to put it on.
-	  (when (and (search-forward-regexp
-		      (rx bol (group (* blank) "total")) nil t)
-		     ;; Emacs 29.1 or later.
-		     (not (fboundp 'dired--insert-disk-space)))
-	    (when-let* ((available (get-free-disk-space ".")))
-	      ;; Replace "total" with "total used", to avoid confusion.
-	      (replace-match "\\1 used in directory")
-	      (end-of-line)
-	      (insert " available " available))))
+	  (when-let* (((search-forward-regexp
+			(rx bol (group (* blank) "total")) nil t))
+		      ;; Emacs 29.1 or later.
+		      ((not (fboundp 'dired--insert-disk-space)))
+		      (available (get-free-disk-space ".")))
+	    ;; Replace "total" with "total used", to avoid confusion.
+	    (replace-match "\\1 used in directory")
+	    (end-of-line)
+	    (insert " available " available)))
 
 	(prog1 (goto-char end-marker)
 	  (set-marker beg-marker nil)
diff --git a/lisp/tramp.el b/lisp/tramp.el
index ec57aca0..261fbc11 100644
--- a/lisp/tramp.el
+++ b/lisp/tramp.el
@@ -941,7 +941,7 @@ to be set, depending on VALUE."
   ;; Cleanup existing buffers.
   (unless (eq (symbol-value symbol) value)
     (tramp-cleanup-all-buffers))
-  ;; Set the value:
+  ;; Set the value.
   (set-default symbol value)
   ;; Reset the depending variables.
   (setq tramp-prefix-format (tramp-build-prefix-format)
@@ -4088,17 +4088,17 @@ BODY is the backend specific code."
 
 	   (let (last-coding-system-used (need-chown t))
 	     ;; Set file modification time.
-	     (when (or (eq ,visit t) (stringp ,visit))
-	       (when-let* ((file-attr (file-attributes filename 'integer)))
-		 (set-visited-file-modtime
-		  ;; We must pass modtime explicitly, because FILENAME
-		  ;; can be different from (buffer-file-name), f.e. if
-		  ;; `file-precious-flag' is set.
-		  (or (file-attribute-modification-time file-attr)
-		      (current-time)))
-		 (when (and (= (file-attribute-user-id file-attr) uid)
-			    (= (file-attribute-group-id file-attr) gid))
-		   (setq need-chown nil))))
+	     (when-let* (((or (eq ,visit t) (stringp ,visit)))
+			 (file-attr (file-attributes filename 'integer)))
+	       (set-visited-file-modtime
+		;; We must pass modtime explicitly, because FILENAME
+		;; can be different from (buffer-file-name), f.e. if
+		;; `file-precious-flag' is set.
+		(or (file-attribute-modification-time file-attr)
+		    (current-time)))
+	       (when (and (= (file-attribute-user-id file-attr) uid)
+			  (= (file-attribute-group-id file-attr) gid))
+		 (setq need-chown nil)))
 
 	     ;; Set the ownership.
              (when need-chown
@@ -7221,6 +7221,7 @@ Consults the auth-source package."
 		      (tramp-compat-auth-info-password auth-info))))
 
 	 ;; Try the password cache.
+	 ;; Starting with Emacs 31.1, this isn't needed anymore.
 	 (with-tramp-suspended-timers
 	   (setq auth-passwd
 		 (password-read