tramp-file-name-handler-alist): Delete expand-file-name and other

operations that can cause spurious loading.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6048372f90b750adcbe648babe2888c7799531b1..d758347a5c8aa285e84e4a16688edaa5a9896c9d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-04-29  Richard Stallman  <rms@gnu.org>
+
+       * net/tramp.el (tramp-file-name-handler-alist): Delete
+       expand-file-name and other operations that can cause spurious loading.
+
 2006-04-29  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * files.el (safe-local-variable-p): Remove support for the special

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index ad4eaaa4862942c1daf75c0d030155fe90aadd8e..b35ffeb58ffe5c51a5b23a18d690942d2f08b9c2 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1822,7 +1822,7 @@ Escape sequence %s is replaced with name of Perl binary.
 This string is passed to `format', so percent characters need to be doubled.")
 
 ; These values conform to `file-attributes' from XEmacs 21.2.
-; GNU Emacs and other tools not checked.
+; Emacs and other tools not checked.
 (defconst tramp-file-mode-type-map '((0  . "-")  ; Normal file (SVID-v2 and XPG2)
                                     (1  . "p")  ; fifo
                                     (2  . "c")  ; character device
@@ -1927,17 +1927,13 @@ on the FILENAME argument, even if VISIT was a string.")
   "Alist of handler functions.
 Operations not mentioned here will be handled by the normal Emacs functions.")
 
-;; Handlers for partial tramp file names. For GNU Emacs just
-;; `file-name-all-completions' is needed. The other ones are necessary
-;; for XEmacs.
+
+;; Handlers for partial tramp file names.  For Emacs just
+;; `file-name-all-completions' is needed.
 (defconst tramp-completion-file-name-handler-alist
   '(
-    (file-name-directory . tramp-completion-handle-file-name-directory)
-    (file-name-nondirectory . tramp-completion-handle-file-name-nondirectory)
-    (file-exists-p . tramp-completion-handle-file-exists-p)
     (file-name-all-completions . tramp-completion-handle-file-name-all-completions)
-    (file-name-completion . tramp-completion-handle-file-name-completion)
-    (expand-file-name . tramp-completion-handle-expand-file-name))
+    (file-name-completion . tramp-completion-handle-file-name-completion))
   "Alist of completion handler functions.
 Used for file names matching `tramp-file-name-regexp'. Operations not
 mentioned here will be handled by `tramp-file-name-handler-alist' or the