summaryrefslogtreecommitdiff
path: root/lisp/dired-x.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2013-09-09 21:28:01 -0400
committerGlenn Morris <rgm@gnu.org>2013-09-09 21:28:01 -0400
commite5e916d856b7abb17f833d68e1a741a65d4e91ca (patch)
treea7e7b99635bff6c1fb6ed84ec35d9848a65a2529 /lisp/dired-x.el
parent81ca32e0917fb597ec236e9eccb6624c7843c6aa (diff)
downloademacs-e5e916d856b7abb17f833d68e1a741a65d4e91ca.tar.gz
* 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
Diffstat (limited to 'lisp/dired-x.el')
-rw-r--r--lisp/dired-x.el3
1 files changed, 3 insertions, 0 deletions
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))