[Emacs-diffs] Changes to emacs/lisp/net/tramp.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/04/03 03:33:19

Index: tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.186
retrieving revision 1.187
diff -u -b -r1.186 -r1.187
--- tramp.el    2 Apr 2008 18:57:51 -0000       1.186
+++ tramp.el    3 Apr 2008 03:33:18 -0000       1.187
@@ -1957,6 +1957,21 @@
 (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 @@
 
 ;; 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