(tramp-drop-volume-letter): Move definition before use.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 685c6bda298d1ed02f79a70a0fda4d2a5e17b79c..439636dcf2cc92dcf3f8150d4861beebf4da3d2e 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1957,6 +1957,21 @@ FILE must be a local file name on a connection identified via VEC."
 (put 'with-connection-property 'edebug-form-spec t)
 (font-lock-add-keywords 'emacs-lisp-mode '("\\<with-connection-property\\>"))
 
+(eval-and-compile                      ; silence compiler
+  (if (memq system-type '(cygwin windows-nt))
+      (defun tramp-drop-volume-letter (name)
+       "Cut off unnecessary drive letter from file NAME.
+The function `tramp-handle-expand-file-name' calls `expand-file-name'
+locally on a remote file name.  When the local system is a W32 system
+but the remote system is Unix, this introduces a superfluous drive
+letter into the file name.  This function removes it."
+       (save-match-data
+         (if (string-match tramp-root-regexp name)
+             (replace-match "/" nil t name)
+           name)))
+
+    (defalias 'tramp-drop-volume-letter 'identity)))
+
 (defsubst tramp-make-tramp-temp-file (vec)
   "Create a temporary file on the remote host identified by VEC.
 Return the local name of the temporary file."
@@ -3485,21 +3500,6 @@ This is like `dired-recursive-delete-directory' for Tramp files."
 
 ;; Canonicalization of file names.
 
-(eval-and-compile                      ; silence compiler
-  (if (memq system-type '(cygwin windows-nt))
-      (defun tramp-drop-volume-letter (name)
-       "Cut off unnecessary drive letter from file NAME.
-The function `tramp-handle-expand-file-name' calls `expand-file-name'
-locally on a remote file name.  When the local system is a W32 system
-but the remote system is Unix, this introduces a superfluous drive
-letter into the file name.  This function removes it."
-       (save-match-data
-         (if (string-match tramp-root-regexp name)
-             (replace-match "/" nil t name)
-           name)))
-
-    (defalias 'tramp-drop-volume-letter 'identity)))
-
 (defun tramp-handle-expand-file-name (name &optional dir)
   "Like `expand-file-name' for Tramp files.
 If the localname part of the given filename starts with \"/../\" then