[Tramp-checkins] CVS: tramp/lisp ChangeLog,2.91,2.92 tramp.el,2.91,2.92

[Kai Gro?j. <ka...@us...>]

Update of /cvsroot/tramp/tramp/lisp
In directory usw-pr-cvs1:/tmp/cvs-serv26050/tramp/lisp

Modified Files:
	ChangeLog tramp.el 
Log Message:
(tramp-handle-add-name-to-file): Use "ln" connection
property instead of literal "ln" in command.
(tramp-post-connection): Only set "ln" connection property if
that program could be found.  Erase buffer when done.


Index: ChangeLog
===================================================================
RCS file: /cvsroot/tramp/tramp/lisp/ChangeLog,v
retrieving revision 2.91
retrieving revision 2.92
diff -C2 -d -r2.91 -r2.92
*** ChangeLog	12 Mar 2002 10:07:47 -0000	2.91
--- ChangeLog	25 Mar 2002 09:29:39 -0000	2.92
***************
*** 1,2 ****
--- 1,9 ----
+ 2002-03-25  Kai Großjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+ 
+ 	* tramp.el (tramp-handle-add-name-to-file): Use "ln" connection
+ 	property instead of literal "ln" in command.
+ 	(tramp-post-connection): Only set "ln" connection property if
+ 	that program could be found.  Erase buffer when done.
+ 
  2002-03-12  Kai Großjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
  

Index: tramp.el
===================================================================
RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v
retrieving revision 2.91
retrieving revision 2.92
diff -C2 -d -r2.91 -r2.92
*** tramp.el	12 Mar 2002 10:07:47 -0000	2.91
--- tramp.el	25 Mar 2002 09:29:39 -0000	2.92
***************
*** 1915,1919 ****
           (host2  (when v2 (tramp-file-name-host v2)))
           (path1  (when v1 (tramp-file-name-path v1)))
!          (path2  (when v2 (tramp-file-name-path v2))))
      (unless (and meth1 meth2 user1 user2 host1 host2
                   (equal mmeth1 mmeth2)
--- 1915,1920 ----
           (host2  (when v2 (tramp-file-name-host v2)))
           (path1  (when v1 (tramp-file-name-path v1)))
!          (path2  (when v2 (tramp-file-name-path v2)))
! 	 (ln     (when v1 (tramp-get-remote-ln mmeth1 meth1 user1 host1))))
      (unless (and meth1 meth2 user1 user2 host1 host2
                   (equal mmeth1 mmeth2)
***************
*** 1933,1937 ****
      (tramp-barf-unless-okay
       mmeth1 meth1 user1 host1
!      (format "ln %s %s" (tramp-shell-quote-argument path1)
               (tramp-shell-quote-argument path2))
       nil 'file-error
--- 1934,1938 ----
      (tramp-barf-unless-okay
       mmeth1 meth1 user1 host1
!      (format "%s %s %s" ln (tramp-shell-quote-argument path1)
               (tramp-shell-quote-argument path2))
       nil 'file-error
***************
*** 4023,4031 ****
    ;; Find ln(1)
    (erase-buffer)
!   (tramp-set-connection-property
!    "ln"
!    (tramp-find-executable multi-method method user host
!                           "ln" tramp-remote-path nil)
!    multi-method method user host)
    ;; If encoding/decoding command are given, test to see if they work.
    ;; CCC: Maybe it would be useful to run the encoder both locally and
--- 4024,4032 ----
    ;; Find ln(1)
    (erase-buffer)
!   (let ((ln (tramp-find-executable multi-method method user host
! 				   "ln" tramp-remote-path nil)))
!     (when ln
!       (tramp-set-connection-property "ln" ln multi-method method user host)))
!   (erase-buffer)
    ;; If encoding/decoding command are given, test to see if they work.
    ;; CCC: Maybe it would be useful to run the encoder both locally and