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

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       07/02/12 06:19:54

Index: net/tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.119
retrieving revision 1.120
diff -u -b -r1.119 -r1.120
--- net/tramp.el        27 Jan 2007 14:40:08 -0000      1.119
+++ net/tramp.el        12 Feb 2007 06:19:54 -0000      1.120
@@ -7105,10 +7105,12 @@
 ;; Variables local to connection.
 
 (defun tramp-get-ls-command (multi-method method user host)
+  (or
   (save-excursion
     (tramp-maybe-open-connection multi-method method user host)
     (set-buffer (tramp-get-buffer multi-method method user host))
-    tramp-ls-command))
+     tramp-ls-command)
+   (error "Couldn't find remote `ls' command")))
 
 (defun tramp-get-test-groks-nt (multi-method method user host)
   (save-excursion
@@ -7117,16 +7119,20 @@
     tramp-test-groks-nt))
 
 (defun tramp-get-file-exists-command (multi-method method user host)
+  (or
   (save-excursion
     (tramp-maybe-open-connection multi-method method user host)
     (set-buffer (tramp-get-buffer multi-method method user host))
-    tramp-file-exists-command))
+     tramp-file-exists-command)
+   (error "Couldn't find remote `test -e' command")))
 
 (defun tramp-get-remote-perl (multi-method method user host)
   (tramp-get-connection-property "perl" nil multi-method method user host))
 
 (defun tramp-get-remote-ln (multi-method method user host)
-  (tramp-get-connection-property "ln" nil multi-method method user host))
+  (or
+   (tramp-get-connection-property "ln" nil multi-method method user host)
+   (error "Couldn't find remote `ln' command")))
 
 (defun tramp-get-remote-uid (multi-method method user host)
   (tramp-get-connection-property "uid" nil multi-method method user host))