[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r114186: * lisp/dired-x.el (dired-mark-sexp): Unbrea
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] trunk r114186: * lisp/dired-x.el (dired-mark-sexp): Unbreak for systems where ls |
Date: |
Tue, 10 Sep 2013 01:28:05 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 114186
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Mon 2013-09-09 21:28:01 -0400
message:
* 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
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/dired-x.el diredx.el-20091113204419-o5vbwnq5f7feedwu-649
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-09-08 23:15:17 +0000
+++ b/lisp/ChangeLog 2013-09-10 01:28:01 +0000
@@ -1,3 +1,8 @@
+2013-09-10 Glenn Morris <address@hidden>
+
+ * 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 <address@hidden>
* saveplace.el (load-save-place-alist-from-file):
=== modified file 'lisp/dired-x.el'
--- a/lisp/dired-x.el 2013-09-06 21:12:22 +0000
+++ b/lisp/dired-x.el 2013-09-10 01:28:01 +0000
@@ -1459,6 +1459,9 @@
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 <address@hidden> fixed uid.
(setq uid (buffer-substring (1+ (point))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r114186: * lisp/dired-x.el (dired-mark-sexp): Unbreak for systems where ls,
Glenn Morris <=