[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/tramp.el,v
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/tramp.el,v |
Date: |
Mon, 12 Feb 2007 06:19:55 +0000 |
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))
- [Emacs-diffs] Changes to emacs/lisp/net/tramp.el,v,
Michael Albinus <=