From e5e916d856b7abb17f833d68e1a741a65d4e91ca Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 9 Sep 2013 21:28:01 -0400 Subject: [PATCH] * 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 --- lisp/ChangeLog | 5 +++++ lisp/dired-x.el | 3 +++ 2 files changed, 8 insertions(+) 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 + + * 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 * 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 fixed uid. (setq uid (buffer-substring (1+ (point)) -- 2.39.2