comparison lisp/net/tramp.el @ 109449:333d4b14e6cb

* net/tramp.el (tramp-get-ls-command-with-dired): Make test for "--dired" stronger.
author Michael Albinus <albinus@detlef>
date Sat, 17 Jul 2010 10:44:59 +0200
parents 9e514d1076b4
children 0366d395e7e6
comparison
equal deleted inserted replaced
109448:334eb7871775 109449:333d4b14e6cb
1035 ;; "getconf PATH" yields: 1035 ;; "getconf PATH" yields:
1036 ;; HP-UX: /usr/bin:/usr/ccs/bin:/opt/ansic/bin:/opt/langtools/bin:/opt/fortran/bin 1036 ;; HP-UX: /usr/bin:/usr/ccs/bin:/opt/ansic/bin:/opt/langtools/bin:/opt/fortran/bin
1037 ;; Solaris: /usr/xpg4/bin:/usr/ccs/bin:/usr/bin:/opt/SUNWspro/bin 1037 ;; Solaris: /usr/xpg4/bin:/usr/ccs/bin:/usr/bin:/opt/SUNWspro/bin
1038 ;; GNU/Linux (Debian, Suse): /bin:/usr/bin 1038 ;; GNU/Linux (Debian, Suse): /bin:/usr/bin
1039 ;; FreeBSD: /usr/bin:/bin:/usr/sbin:/sbin: - beware trailing ":"! 1039 ;; FreeBSD: /usr/bin:/bin:/usr/sbin:/sbin: - beware trailing ":"!
1040 ;; IRIX64: /usr/bin
1040 (defcustom tramp-remote-path 1041 (defcustom tramp-remote-path
1041 '(tramp-default-remote-path "/usr/sbin" "/usr/local/bin" 1042 '(tramp-default-remote-path "/usr/sbin" "/usr/local/bin"
1042 "/local/bin" "/local/freeware/bin" "/local/gnu/bin" 1043 "/local/bin" "/local/freeware/bin" "/local/gnu/bin"
1043 "/usr/freeware/bin" "/usr/pkg/bin" "/usr/contrib/bin") 1044 "/usr/freeware/bin" "/usr/pkg/bin" "/usr/contrib/bin")
1044 "*List of directories to search for executables on remote host. 1045 "*List of directories to search for executables on remote host.
8333 8334
8334 (defun tramp-get-ls-command-with-dired (vec) 8335 (defun tramp-get-ls-command-with-dired (vec)
8335 (save-match-data 8336 (save-match-data
8336 (with-connection-property vec "ls-dired" 8337 (with-connection-property vec "ls-dired"
8337 (tramp-message vec 5 "Checking, whether `ls --dired' works") 8338 (tramp-message vec 5 "Checking, whether `ls --dired' works")
8339 ;; Some "ls" versions are sensible wrt the order of arguments,
8340 ;; they fail when "-al" is after the "--dired" argument (for
8341 ;; example on FreeBSD).
8338 (zerop (tramp-send-command-and-check 8342 (zerop (tramp-send-command-and-check
8339 vec (format "%s --dired /" (tramp-get-ls-command vec))))))) 8343 vec (format "%s --dired -al /" (tramp-get-ls-command vec)))))))
8340 8344
8341 (defun tramp-get-test-command (vec) 8345 (defun tramp-get-test-command (vec)
8342 (with-connection-property vec "test" 8346 (with-connection-property vec "test"
8343 (tramp-message vec 5 "Finding a suitable `test' command") 8347 (tramp-message vec 5 "Finding a suitable `test' command")
8344 (if (zerop (tramp-send-command-and-check vec "test 0")) 8348 (if (zerop (tramp-send-command-and-check vec "test 0"))
8934 ;; * Load Tramp subpackages only when needed. (Bug#1529, Bug#5448, Bug#5705) 8938 ;; * Load Tramp subpackages only when needed. (Bug#1529, Bug#5448, Bug#5705)
8935 ;; * Try telnet+curl as new method. It might be useful for busybox, 8939 ;; * Try telnet+curl as new method. It might be useful for busybox,
8936 ;; without built-in uuencode/uudecode. 8940 ;; without built-in uuencode/uudecode.
8937 ;; * Let `shell-dynamic-complete-*' and `comint-dynamic-complete' work 8941 ;; * Let `shell-dynamic-complete-*' and `comint-dynamic-complete' work
8938 ;; on remote hosts. 8942 ;; on remote hosts.
8939 ;; * Use secrets.el for password handling.
8940 ;; * Load ~/.emacs_SHELLNAME on the remote host for `shell'. 8943 ;; * Load ~/.emacs_SHELLNAME on the remote host for `shell'.
8941 8944
8942 ;; Functions for file-name-handler-alist: 8945 ;; Functions for file-name-handler-alist:
8943 ;; diff-latest-backup-file -- in diff.el 8946 ;; diff-latest-backup-file -- in diff.el
8944 8947