From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 29 Apr 2006 15:58:42 +0000 (+0000)
Subject: tramp-file-name-handler-alist): Delete expand-file-name and other
X-Git-Tag: emacs-pretest-22.0.90~2904
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=41c8e348f2362ff04d14d9781b02b3f72571e4bf;p=emacs.git

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 6048372f90b..d758347a5c8 100644
--- 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 ad4eaaa4862..b35ffeb58ff 100644
--- 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