[Emacs-diffs] emacs-24 r116989: * net/tramp-sh.el (tramp-get-ls-command): Use "-b" argument if possible.

[Michael Albinus]

------------------------------------------------------------
revno: 116989
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: emacs-24
timestamp: Sun 2014-04-20 23:35:55 +0200
message:
  * net/tramp-sh.el (tramp-get-ls-command): Use "-b" argument if possible.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/tramp-sh.el           trampsh.el-20100913133439-a1faifh29eqoi4nh-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-04-19 17:14:27 +0000
+++ b/lisp/ChangeLog    2014-04-20 21:35:55 +0000
@@ -1,3 +1,8 @@
+2014-04-20  Michael Albinus  <address@hidden>
+
+       * net/tramp-sh.el (tramp-get-ls-command): Use "-b" argument if
+       possible.
+
 2014-04-19  Stefan Monnier  <address@hidden>
 
        * progmodes/sh-script.el (sh-smie--sh-keyword-p): Handle variable

=== modified file 'lisp/net/tramp-sh.el'
--- a/lisp/net/tramp-sh.el      2014-04-13 10:31:48 +0000
+++ b/lisp/net/tramp-sh.el      2014-04-20 21:35:55 +0000
@@ -4966,6 +4966,12 @@
                      vec (format
                           "%s --color=never -al /dev/null" result))
                 (setq result (concat result " --color=never")))
+              ;; This should support file names with special
+              ;; characters.  If this option is not supported, such
+              ;; file names might fail.
+              (when (tramp-send-command-and-check
+                     vec (format "%s -b /dev/null" result))
+                (setq result (concat result " -b")))
               (throw 'ls-found result))
             (setq dl (cdr dl))))))
      (tramp-error vec 'file-error "Couldn't find a proper `ls' command"))))