mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-25 17:31:04 -08:00
Code Issues Projects Releases Wiki Activity

* net/tramp.el (tramp-get-ls-command)

Browse source 
(tramp-get-ls-command-with-dired): Run tests on "/dev/null"
instead of "/".
This commit is contained in:
Michael Albinus 2010-07-21 06:40:47 +02:00
parent d26b0ea9c5
commit 10e7399417
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2010-07-21 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-get-ls-command)
(tramp-get-ls-command-with-dired): Run tests on "/dev/null"
instead of "/".
2010-07-20 Michael R. Mauger <mmaug@yahoo.com>
* progmodes/sql.el: Version 2.3.

6
lisp/net/tramp.el
View file

@ -8344,7 +8344,8 @@ necessary only. This function will be used in file name completion."
(when (zerop (tramp-send-command-and-check
vec (format "%s -lnd /" result)))
(when (zerop (tramp-send-command-and-check
vec (format "%s --color=never -al /" result)))
vec (format
"%s --color=never -al /dev/null" result)))
(setq result (concat result " --color=never")))
(throw 'ls-found result))
(setq dl (cdr dl))))))
@ -8358,7 +8359,8 @@ necessary only. This function will be used in file name completion."
;; they fail when "-al" is after the "--dired" argument (for
;; example on FreeBSD).
(zerop (tramp-send-command-and-check
vec (format "%s --dired -al /" (tramp-get-ls-command vec)))))))
vec (format "%s --dired -al /dev/null"
(tramp-get-ls-command vec)))))))
(defun tramp-get-test-command (vec)
(with-connection-property vec "test"