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

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       08/04/27 16:36:44

Index: tramp-fish.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp-fish.el,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- tramp-fish.el       19 Mar 2008 21:02:03 -0000      1.14
+++ tramp-fish.el       27 Apr 2008 16:36:43 -0000      1.15
@@ -352,7 +352,7 @@
        (tramp-run-real-handler 'expand-file-name (list name nil)))
     ;; Dissect NAME.
     (with-parsed-tramp-file-name name nil
-      (unless (file-name-absolute-p localname)
+      (unless (tramp-run-real-handler 'file-name-absolute-p (list localname))
        (setq localname (concat "~/" localname)))
       ;; Tilde expansion if necessary.
       (when (string-match "\\`\\(~[^/]*\\)\\(.*\\)\\'" localname)
@@ -385,8 +385,8 @@
        (tramp-make-tramp-file-name
         method user host
         (tramp-drop-volume-letter
-         (tramp-run-real-handler 'expand-file-name
-                                 (list localname))))))))
+         (tramp-run-real-handler
+          'expand-file-name (list localname))))))))
 
 (defun tramp-fish-handle-file-attributes (filename &optional id-format)
   "Like `file-attributes' for Tramp files."