Prefix Tramp internal process properties with "tramp-".

* lisp/net/tramp.el (tramp-get-process, tramp-message)
(tramp-handle-make-process, tramp-handle-file-notify-valid-p)
(tramp-process-actions, tramp-accept-process-output)
(tramp-process-sentinel, tramp-read-passwd)
(tramp-interrupt-process, tramp-signal-process):
* lisp/net/tramp-adb.el (tramp-adb-maybe-open-connection):
* lisp/net/tramp-cmds.el (tramp-cleanup-connection):
* lisp/net/tramp-crypt.el (tramp-crypt-maybe-open-connection):
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-notify-add-watch)
(tramp-gvfs-monitor-process-filter)
(tramp-gvfs-maybe-open-connection):
* lisp/net/tramp-rclone.el (tramp-rclone-maybe-open-connection):
* lisp/net/tramp-sh.el (tramp-do-copy-or-rename-file-out-of-band)
(tramp-sh-handle-file-notify-add-watch)
(tramp-sh-gio-monitor-process-filter)
(tramp-sh-inotifywait-process-filter)
(tramp-barf-if-no-shell-prompt, tramp-maybe-open-connection):
* lisp/net/tramp-smb.el (tramp-smb-handle-copy-directory)
(tramp-smb-handle-file-acl, tramp-smb-handle-set-file-acl)
(tramp-smb-maybe-open-connection):
* lisp/net/tramp-sshfs.el (tramp-sshfs-maybe-open-connection):
* lisp/net/tramp-sudoedit.el (tramp-sudoedit-maybe-open-connection)
(tramp-sudoedit-send-command): Prefix internal process properties
with "tramp-".

diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el
index d338201ab723cbf138aa9d6c449543e3362ebbda..14c63ba5834da10ae2e00465f48abba3de2adb0a 100644 (file)
--- a/lisp/net/tramp-adb.el
+++ b/lisp/net/tramp-adb.el
@@ -1249,7 +1249,7 @@ connection if a previous connection has died for some reason."
 
            ;; Set sentinel and query flag.  Initialize variables.
            (set-process-sentinel p #'tramp-process-sentinel)
-           (process-put p 'vector vec)
+           (process-put p 'tramp-vector vec)
            (process-put p 'adjust-window-size-function #'ignore)
            (set-process-query-on-exit-flag p nil)
 

diff --git a/lisp/net/tramp-cmds.el b/lisp/net/tramp-cmds.el
index 6627ef47ee2f11264718ce33965878116933ee05..b0cfdb1ebbac94d10ed39768cd8637645b860e5b 100644 (file)
--- a/lisp/net/tramp-cmds.el
+++ b/lisp/net/tramp-cmds.el
@@ -123,7 +123,7 @@ When called interactively, a Tramp connection has to be selected."
     ;; Delete processes.
     (dolist (key (hash-table-keys tramp-cache-data))
       (when (and (processp key)
-                (tramp-file-name-equal-p (process-get key 'vector) vec)
+                (tramp-file-name-equal-p (process-get key 'tramp-vector) vec)
                 (or (not keep-processes)
                     (eq key (tramp-get-process vec))))
        (tramp-flush-connection-properties key)

diff --git a/lisp/net/tramp-crypt.el b/lisp/net/tramp-crypt.el
index d0f1f1b8184397f32746880b7977f454409c9c87..116c2b143e90ebec43947cc8417ed45b1e4b1726 100644 (file)
--- a/lisp/net/tramp-crypt.el
+++ b/lisp/net/tramp-crypt.el
@@ -316,7 +316,7 @@ connection if a previous connection has died for some reason."
              :name (tramp-get-connection-name vec)
              :buffer (tramp-get-connection-buffer vec)
              :server t :host 'local :service t :noquery t)))
-      (process-put p 'vector vec)
+      (process-put p 'tramp-vector vec)
       (set-process-query-on-exit-flag p nil)))
 
   ;; The following operations must be performed without

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index c1ad37de1d2295973bc47111562d176265a5112f..7323374c607966267b7fcd92d1bfffbda879f60b 100644 (file)
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -1460,9 +1460,9 @@ If FILE-SYSTEM is non-nil, return file system attributes."
           v 'file-notify-error "Monitoring not supported for `%s'" file-name)
        (tramp-message
         v 6 "Run `%s', %S" (string-join (process-command p) " ") p)
-       (process-put p 'vector v)
-       (process-put p 'events events)
-       (process-put p 'watch-name localname)
+       (process-put p 'tramp-vector v)
+       (process-put p 'tramp-events events)
+       (process-put p 'tramp-watch-name localname)
        (process-put p 'adjust-window-size-function #'ignore)
        (set-process-query-on-exit-flag p nil)
        (set-process-filter p #'tramp-gvfs-monitor-process-filter)
@@ -1481,8 +1481,8 @@ If FILE-SYSTEM is non-nil, return file system attributes."
 (defun tramp-gvfs-monitor-process-filter (proc string)
   "Read output from \"gvfs-monitor-file\" and add corresponding \
 `file-notify' events."
-  (let* ((events (process-get proc 'events))
-        (rest-string (process-get proc 'rest-string))
+  (let* ((events (process-get proc 'tramp-events))
+        (rest-string (process-get proc 'tramp-rest-string))
         (dd (tramp-get-default-directory (process-buffer proc)))
         (ddu (rx (literal (tramp-gvfs-url-file-name dd)))))
     (when rest-string
@@ -1525,7 +1525,7 @@ If FILE-SYSTEM is non-nil, return file system attributes."
          (setq file1 (url-unhex-string file1)))
        ;; Remove watch when file or directory to be watched is deleted.
        (when (and (member action '(moved deleted))
-                  (string-equal file (process-get proc 'watch-name)))
+                  (string-equal file (process-get proc 'tramp-watch-name)))
          (delete-process proc))
        ;; Usually, we would add an Emacs event now.  Unfortunately,
        ;; `unread-command-events' does not accept several events at
@@ -1537,7 +1537,7 @@ If FILE-SYSTEM is non-nil, return file system attributes."
     ;; Save rest of the string.
     (when (string-empty-p string) (setq string nil))
     (when string (tramp-message proc 10 "Rest string:\n%s" string))
-    (process-put proc 'rest-string string)))
+    (process-put proc 'tramp-rest-string string)))
 
 (defun tramp-gvfs-handle-file-system-info (filename)
   "Like `file-system-info' for Tramp files."
@@ -2152,7 +2152,7 @@ connection if a previous connection has died for some reason."
              :name (tramp-get-connection-name vec)
              :buffer (tramp-get-connection-buffer vec)
              :server t :host 'local :service t :noquery t)))
-      (process-put p 'vector vec)
+      (process-put p 'tramp-vector vec)
       (set-process-query-on-exit-flag p nil)
 
       ;; Set connection-local variables.

diff --git a/lisp/net/tramp-rclone.el b/lisp/net/tramp-rclone.el
index 9eb2a54cdcffe8840342391f0f423e876bbf6511..ec6a1da684fd6d05462841b37ef12edf9d1588e7 100644 (file)
--- a/lisp/net/tramp-rclone.el
+++ b/lisp/net/tramp-rclone.el
@@ -371,7 +371,7 @@ connection if a previous connection has died for some reason."
                  :name (tramp-get-connection-name vec)
                  :buffer (tramp-get-connection-buffer vec)
                  :server t :host 'local :service t :noquery t)))
-         (process-put p 'vector vec)
+         (process-put p 'tramp-vector vec)
          (set-process-query-on-exit-flag p nil)
 
          ;; Set connection-local variables.

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 2f990af334d7b738dfffdefebf74bdea26355e68..875ad096ad67475b8386aca158c54f906bf388dd 100644 (file)
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -2423,11 +2423,11 @@ The method used must be an out-of-band method."
                      (tramp-get-connection-buffer v)
                      copy-program copy-args)))
                (tramp-message v 6 "%s" (string-join (process-command p) " "))
-               (process-put p 'vector v)
+               (process-put p 'tramp-vector v)
                ;; This is neded for ssh or PuTTY based processes, and
                ;; only if the respective options are set.  Perhaps,
                ;; the setting could be more fine-grained.
-               ;; (process-put p 'shared-socket t)
+               ;; (process-put p 'tramp-shared-socket t)
                (process-put p 'adjust-window-size-function #'ignore)
                (set-process-query-on-exit-flag p nil)
 
@@ -3756,14 +3756,14 @@ Fall back to normal file name handler if no Tramp handler exists."
           "`%s' failed to start on remote host"
           (string-join sequence " "))
        (tramp-message v 6 "Run `%s', %S" (string-join sequence " ") p)
-       (process-put p 'vector v)
+       (process-put p 'tramp-vector v)
        ;; This is neded for ssh or PuTTY based processes, and only if
        ;; the respective options are set.  Perhaps, the setting could
        ;; be more fine-grained.
-       ;; (process-put p 'shared-socket t)
+       ;; (process-put p 'tramp-shared-socket t)
        ;; Needed for process filter.
-       (process-put p 'events events)
-       (process-put p 'watch-name localname)
+       (process-put p 'tramp-events events)
+       (process-put p 'tramp-watch-name localname)
        (set-process-query-on-exit-flag p nil)
        (set-process-filter p filter)
        (set-process-sentinel p #'tramp-file-notify-process-sentinel)
@@ -3777,10 +3777,10 @@ Fall back to normal file name handler if no Tramp handler exists."
 
 (defun tramp-sh-gio-monitor-process-filter (proc string)
   "Read output from \"gio monitor\" and add corresponding `file-notify' events."
-  (let ((events (process-get proc 'events))
+  (let ((events (process-get proc 'tramp-events))
        (remote-prefix
         (file-remote-p (tramp-get-default-directory (process-buffer proc))))
-       (rest-string (process-get proc 'rest-string))
+       (rest-string (process-get proc 'tramp-rest-string))
        pos)
     (when rest-string
       (tramp-message proc 10 "Previous string:\n%s" rest-string))
@@ -3862,11 +3862,11 @@ Fall back to normal file name handler if no Tramp handler exists."
       (setq string (replace-match "" nil nil string)))
     (when (string-empty-p string) (setq string nil))
     (when string (tramp-message proc 10 "Rest string:\n%s" string))
-    (process-put proc 'rest-string string)))
+    (process-put proc 'tramp-rest-string string)))
 
 (defun tramp-sh-inotifywait-process-filter (proc string)
   "Read output from \"inotifywait\" and add corresponding `file-notify' events."
-  (let ((events (process-get proc 'events)))
+  (let ((events (process-get proc 'tramp-events)))
     (tramp-message proc 6 "%S\n%s" proc string)
     (dolist (line (split-string string (rx (+ (any "\r\n"))) 'omit))
       ;; Check, whether there is a problem.
@@ -3885,7 +3885,8 @@ Fall back to normal file name handler if no Tramp handler exists."
                  (tramp-compat-string-replace "_" "-" (downcase x))))
               (split-string (match-string 1 line) "," 'omit))
              (or (match-string 2 line)
-                 (file-name-nondirectory (process-get proc 'watch-name))))))
+                 (file-name-nondirectory
+                  (process-get proc 'tramp-watch-name))))))
        ;; Usually, we would add an Emacs event now.  Unfortunately,
        ;; `unread-command-events' does not accept several events at
        ;; once.  Therefore, we apply the handler directly.
@@ -4315,7 +4316,7 @@ file exists and nonzero exit status otherwise."
   "Wait for shell prompt and barf if none appears.
 Looks at process PROC to see if a shell prompt appears in TIMEOUT
 seconds.  If not, it produces an error message with the given ERROR-ARGS."
-  (let ((vec (process-get proc 'vector)))
+  (let ((vec (process-get proc 'tramp-vector)))
     (condition-case nil
        (tramp-wait-for-regexp
         proc timeout
@@ -5120,11 +5121,11 @@ connection if a previous connection has died for some reason."
 
                ;; Set sentinel and query flag.  Initialize variables.
                (set-process-sentinel p #'tramp-process-sentinel)
-               (process-put p 'vector vec)
+               (process-put p 'tramp-vector vec)
                ;; This is neded for ssh or PuTTY based processes, and
                ;; only if the respective options are set.  Perhaps,
                ;; the setting could be more fine-grained.
-               ;; (process-put p 'shared-socket t)
+               ;; (process-put p 'tramp-shared-socket t)
                (process-put p 'adjust-window-size-function #'ignore)
                (set-process-query-on-exit-flag p nil)
                (setq tramp-current-connection (cons vec (current-time)))

diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index bb4ab9e305703deb8e86c22a74352bc3d573db22..740841c24db22117c804a49f561047485aa8ca5e 100644 (file)
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -559,7 +559,7 @@ arguments to pass to the OPERATION."
 
                            (tramp-message
                             v 6 "%s" (string-join (process-command p) " "))
-                           (process-put p 'vector v)
+                           (process-put p 'tramp-vector v)
                            (process-put
                             p 'adjust-window-size-function #'ignore)
                            (set-process-query-on-exit-flag p nil)
@@ -820,7 +820,7 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are completely ignored."
 
                      (tramp-message
                       v 6 "%s" (string-join (process-command p) " "))
-                     (process-put p 'vector v)
+                     (process-put p 'tramp-vector v)
                      (process-put p 'adjust-window-size-function #'ignore)
                      (set-process-query-on-exit-flag p nil)
                      (tramp-process-actions p v nil tramp-smb-actions-get-acl)
@@ -1421,7 +1421,7 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are completely ignored."
 
                    (tramp-message
                     v 6 "%s" (string-join (process-command p) " "))
-                   (process-put p 'vector v)
+                   (process-put p 'tramp-vector v)
                    (process-put p 'adjust-window-size-function #'ignore)
                    (set-process-query-on-exit-flag p nil)
                    (tramp-process-actions p v nil tramp-smb-actions-set-acl)
@@ -1969,7 +1969,7 @@ If ARGUMENT is non-nil, use it as argument for
                               args))))
 
              (tramp-message vec 6 "%s" (string-join (process-command p) " "))
-             (process-put p 'vector vec)
+             (process-put p 'tramp-vector vec)
              (process-put p 'adjust-window-size-function #'ignore)
              (set-process-query-on-exit-flag p nil)
 

diff --git a/lisp/net/tramp-sshfs.el b/lisp/net/tramp-sshfs.el
index 65c4bf23c38dab7bb44ec67702505eb0d068ca51..6b788c00ba6cef9891ba04d2c23b1d42b2a6340c 100644 (file)
--- a/lisp/net/tramp-sshfs.el
+++ b/lisp/net/tramp-sshfs.el
@@ -399,7 +399,7 @@ connection if a previous connection has died for some reason."
              :name (tramp-get-connection-name vec)
              :buffer (tramp-get-connection-buffer vec)
              :server t :host 'local :service t :noquery t)))
-      (process-put p 'vector vec)
+      (process-put p 'tramp-vector vec)
       (set-process-query-on-exit-flag p nil)
 
       ;; Set connection-local variables.

diff --git a/lisp/net/tramp-sudoedit.el b/lisp/net/tramp-sudoedit.el
index 3cacde2468cc6892a4f69450f46fc6c681453aa5..defd4f430bc4da1f867a9e77dd50ff2442074e7f 100644 (file)
--- a/lisp/net/tramp-sudoedit.el
+++ b/lisp/net/tramp-sudoedit.el
@@ -720,7 +720,7 @@ connection if a previous connection has died for some reason."
              :name (tramp-get-connection-name vec)
              :buffer (tramp-get-connection-buffer vec)
              :server t :host 'local :service t :noquery t)))
-      (process-put p 'vector vec)
+      (process-put p 'tramp-vector vec)
       (set-process-query-on-exit-flag p nil)
 
       ;; Set connection-local variables.
@@ -758,7 +758,7 @@ in case of error, t otherwise."
       (tramp-message vec 6 "%s" (string-join (process-command p) " "))
       ;; Avoid process status message in output buffer.
       (set-process-sentinel p #'ignore)
-      (process-put p 'vector vec)
+      (process-put p 'tramp-vector vec)
       (process-put p 'adjust-window-size-function #'ignore)
       (set-process-query-on-exit-flag p nil)
       (tramp-set-connection-property p "password-vector" tramp-sudoedit-null-hop)

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 0c8f8acc07d0c3485be981b23373733ecb1b6943..6e2c895a6bf41aa005b6ab099df64a2fde85fb61 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -725,7 +725,8 @@ The regexp should match at end of buffer."
 
 ;; A security key requires the user physically to touch the device
 ;; with their finger.  We must tell it to the user.
-;; Added in OpenSSH 8.2.  I've tested it with yubikey.
+;; Added in OpenSSH 8.2.  I've tested it with yubikey.  Nitrokey,
+;; which has also passed the tests, does not show such a message.
 (defcustom tramp-security-key-confirm-regexp
   (rx bol (* "\r") "Confirm user presence for key " (* nonl) (* (any "\r\n")))
   "Regular expression matching security key confirmation message.
@@ -1909,7 +1910,7 @@ Return `tramp-cache-undefined' in case it doesn't exist."
   (or (and (tramp-file-name-p vec-or-proc)
           (get-buffer-process (tramp-buffer-name vec-or-proc)))
       (and (processp vec-or-proc)
-          (tramp-get-process (process-get vec-or-proc 'vector)))
+          (tramp-get-process (process-get vec-or-proc 'tramp-vector)))
       tramp-cache-undefined))
 
 (defun tramp-get-connection-process (vec)
@@ -2189,7 +2190,7 @@ applicable)."
                            vec-or-proc 'dont-create))))))))
          ;; Translate proc to vec.
          (when (processp vec-or-proc)
-           (setq vec-or-proc (process-get vec-or-proc 'vector))))
+           (setq vec-or-proc (process-get vec-or-proc 'tramp-vector))))
        ;; Do it.
        (when (tramp-file-name-p vec-or-proc)
          (apply #'tramp-debug-message
@@ -5087,11 +5088,11 @@ substitution.  SPEC-LIST is a list of char/value pairs used for
            ;; t.  See Bug#51177.
            (when filter
              (set-process-filter p filter))
-           (process-put p 'vector v)
+           (process-put p 'tramp-vector v)
            ;; This is neded for ssh or PuTTY based processes, and
            ;; only if the respective options are set.  Perhaps, the
            ;; setting could be more fine-grained.
-           ;; (process-put p 'shared-socket t)
+           ;; (process-put p 'tramp-shared-socket t)
            (process-put p 'remote-command orig-command)
            (tramp-set-connection-property p "remote-command" orig-command)
 
@@ -5506,7 +5507,7 @@ of."
        (with-current-buffer (process-buffer proc)
         (file-exists-p
          (concat (file-remote-p default-directory)
-                 (process-get proc 'watch-name))))))
+                 (process-get proc 'tramp-watch-name))))))
 
 (defun tramp-file-notify-process-sentinel (proc event)
   "Call `file-notify-rm-watch'."
@@ -5726,7 +5727,7 @@ performed successfully.  Any other value means an error."
   ;; use the "password-vector" property in case we have several hops.
   (tramp-set-connection-property
    (tramp-get-connection-property
-    proc "password-vector" (process-get proc 'vector))
+    proc "password-vector" (process-get proc 'tramp-vector))
    "first-password-request" tramp-cache-read-persistent-data)
   (save-restriction
     (with-tramp-progress-reporter
@@ -5810,10 +5811,10 @@ If the user quits via `C-g', it is propagated up to `tramp-file-name-handler'."
   ;; communication.  This could block the output for the current
   ;; process.  Read such output first.  (Bug#61350)
   ;; The process property isn't set anymore due to Bug#62194.
-  (when-let (((process-get proc 'shared-socket))
-            (v (process-get proc 'vector)))
+  (when-let (((process-get proc 'tramp-shared-socket))
+            (v (process-get proc 'tramp-vector)))
     (dolist (p (delq proc (process-list)))
-      (when (tramp-file-name-equal-p v (process-get p 'vector))
+      (when (tramp-file-name-equal-p v (process-get p 'tramp-vector))
        (accept-process-output p 0 nil t))))
 
   (with-current-buffer (process-buffer proc)
@@ -5965,7 +5966,7 @@ the remote host use line-endings as defined in the variable
 (defun tramp-process-sentinel (proc event)
   "Flush file caches and remove shell prompt."
   (unless (process-live-p proc)
-    (let ((vec (process-get proc 'vector))
+    (let ((vec (process-get proc 'tramp-vector))
          (buf (process-buffer proc))
          (prompt (tramp-get-connection-property proc "prompt")))
       (when vec
@@ -6672,7 +6673,7 @@ Consults the auth-source package."
         ;; In tramp-sh.el, we must use "password-vector" due to
         ;; multi-hop.
         (vec (tramp-get-connection-property
-              proc "password-vector" (process-get proc 'vector)))
+              proc "password-vector" (process-get proc 'tramp-vector)))
         (key (tramp-make-tramp-file-name vec 'noloc))
         (method (tramp-file-name-method vec))
         (user (or (tramp-file-name-user-domain vec)
@@ -6835,10 +6836,11 @@ name of a process or buffer, or nil to default to the current buffer."
        ;; negative pid, so we try both variants.
        (tramp-compat-funcall
         'tramp-send-command
-        (process-get proc 'vector)
+        (process-get proc 'tramp-vector)
         (format "(\\kill -2 -%d || \\kill -2 %d) 2>%s"
                  pid pid
-                 (tramp-get-remote-null-device (process-get proc 'vector))))
+                 (tramp-get-remote-null-device
+                 (process-get proc 'tramp-vector))))
        ;; Wait, until the process has disappeared.  If it doesn't,
        ;; fall back to the default implementation.
         (while (tramp-accept-process-output proc))
@@ -6864,7 +6866,7 @@ SIGCODE may be an integer, or a symbol whose name is a signal name."
     (cond
      ((processp process)
       (setq pid (process-get process 'remote-pid)
-            vec (process-get process 'vector)))
+            vec (process-get process 'tramp-vector)))
      ((numberp process)
       (setq pid process
             vec (and (stringp remote) (tramp-dissect-file-name remote))))