From: Glenn Morris <rgm@gnu.org>
Date: Tue, 10 Sep 2013 01:28:01 +0000 (-0400)
Subject: * lisp/dired-x.el (dired-mark-sexp): Unbreak for systems where ls
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1662^2~60
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e5e916d856b7abb17f833d68e1a741a65d4e91ca;p=emacs.git

* lisp/dired-x.el (dired-mark-sexp): Unbreak for systems where ls
returns "alternate access method" in mode (eg "-rw-r--r--.").

It's still pretty broken though, eg
http://debbugs.gnu.org/13575
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7cb40fee60..a89b4fb8cb9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-09-10  Glenn Morris  <rgm@gnu.org>
+
+	* dired-x.el (dired-mark-sexp): Unbreak for systems where ls
+	returns "alternate access method" in mode (eg "-rw-r--r--.").
+
 2013-09-08  Glenn Morris  <rgm@gnu.org>
 
 	* saveplace.el (load-save-place-alist-from-file):
diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index c6ecbf1e718..c15f3b5b121 100644
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -1459,6 +1459,9 @@ to mark all zero length files."
                   s nil))
           (setq mode (buffer-substring (point) (+ mode-len (point))))
           (forward-char mode-len)
+          ;; Skip any extended attributes marker ("." or "+").
+          (or (looking-at " ")
+              (forward-char 1))
           (setq nlink (read (current-buffer)))
           ;; Karsten Wenger <kw@cis.uni-muenchen.de> fixed uid.
           (setq uid (buffer-substring (1+ (point))