[Emacs-diffs] master 1342ccc 1/4: Remove find-file-noselect in Tramp, it was handled in XEmacs

[Michael Albinus]

branch: master
commit 1342cccd4bcd606cf8fdb477e4b28001a88cc065
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Remove find-file-noselect in Tramp, it was handled in XEmacs
    
    * lisp/net/tramp.el (tramp-file-name-for-operation):
    Remove `find-file-noselect'.
---
 lisp/net/tramp-adb.el     | 1 -
 lisp/net/tramp-archive.el | 1 -
 lisp/net/tramp-gvfs.el    | 1 -
 lisp/net/tramp-sh.el      | 1 -
 lisp/net/tramp-smb.el     | 1 -
 lisp/net/tramp.el         | 4 ++--
 6 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el
index 00c6ad4..d0cead2 100644
--- a/lisp/net/tramp-adb.el
+++ b/lisp/net/tramp-adb.el
@@ -141,7 +141,6 @@ It is used for TCP/IP devices."
     (file-truename . tramp-adb-handle-file-truename)
     (file-writable-p . tramp-adb-handle-file-writable-p)
     (find-backup-file-name . tramp-handle-find-backup-file-name)
-    ;; `find-file-noselect' performed by default handler.
     ;; `get-file-buffer' performed by default handler.
     (insert-directory . tramp-handle-insert-directory)
     (insert-file-contents . tramp-handle-insert-file-contents)
diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el
index bb87a83..47f15ce 100644
--- a/lisp/net/tramp-archive.el
+++ b/lisp/net/tramp-archive.el
@@ -253,7 +253,6 @@ It must be supported by libarchive(3).")
     (file-truename . tramp-archive-handle-file-truename)
     (file-writable-p . ignore)
     (find-backup-file-name . ignore)
-    ;; `find-file-noselect' performed by default handler.
     ;; `get-file-buffer' performed by default handler.
     (insert-directory . tramp-archive-handle-insert-directory)
     (insert-file-contents . tramp-archive-handle-insert-file-contents)
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index fb687f0..9d53edd 100644
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -569,7 +569,6 @@ It has been changed in GVFS 1.14.")
     (file-truename . tramp-handle-file-truename)
     (file-writable-p . tramp-gvfs-handle-file-writable-p)
     (find-backup-file-name . tramp-handle-find-backup-file-name)
-    ;; `find-file-noselect' performed by default handler.
     ;; `get-file-buffer' performed by default handler.
     (insert-directory . tramp-handle-insert-directory)
     (insert-file-contents . tramp-handle-insert-file-contents)
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 4965f83..462ad83 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -1023,7 +1023,6 @@ of command line.")
     (file-truename . tramp-sh-handle-file-truename)
     (file-writable-p . tramp-sh-handle-file-writable-p)
     (find-backup-file-name . tramp-handle-find-backup-file-name)
-    ;; `find-file-noselect' performed by default handler.
     ;; `get-file-buffer' performed by default handler.
     (insert-directory . tramp-sh-handle-insert-directory)
     (insert-file-contents . tramp-handle-insert-file-contents)
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index eadb402..23b5176 100644
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -262,7 +262,6 @@ See `tramp-actions-before-shell' for more info.")
     (file-truename . tramp-handle-file-truename)
     (file-writable-p . tramp-smb-handle-file-writable-p)
     (find-backup-file-name . tramp-handle-find-backup-file-name)
-    ;; `find-file-noselect' performed by default handler.
     ;; `get-file-buffer' performed by default handler.
     (insert-directory . tramp-smb-handle-insert-directory)
     (insert-file-contents . tramp-handle-insert-file-contents)
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 97f931a..3fbc45f 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2175,7 +2175,7 @@ ARGS are the arguments OPERATION has been called with."
              file-ownership-preserved-p file-readable-p
              file-regular-p file-remote-p file-selinux-context
              file-symlink-p file-truename file-writable-p
-             find-backup-file-name find-file-noselect get-file-buffer
+             find-backup-file-name get-file-buffer
              insert-directory insert-file-contents load
              make-directory make-directory-internal set-file-acl
              set-file-modes set-file-selinux-context set-file-times
@@ -4445,7 +4445,7 @@ ALIST is of the form ((FROM . TO) ...)."
 It always returns a return code.  The Lisp error raised when
 PROGRAM is nil is trapped also, returning 1.  Furthermore, traces
 are written with verbosity of 6."
-  (let ((default-directory  (tramp-compat-temporary-file-directory))
+  (let ((default-directory (tramp-compat-temporary-file-directory))
        (destination (if (eq destination t) (current-buffer) destination))
        output error result)
     (tramp-message