diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/dired-x.el | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a7cb40fee60..a89b4fb8cb9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2013-09-10 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * dired-x.el (dired-mark-sexp): Unbreak for systems where ls | ||
| 4 | returns "alternate access method" in mode (eg "-rw-r--r--."). | ||
| 5 | |||
| 1 | 2013-09-08 Glenn Morris <rgm@gnu.org> | 6 | 2013-09-08 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * saveplace.el (load-save-place-alist-from-file): | 8 | * 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." | |||
| 1459 | s nil)) | 1459 | s nil)) |
| 1460 | (setq mode (buffer-substring (point) (+ mode-len (point)))) | 1460 | (setq mode (buffer-substring (point) (+ mode-len (point)))) |
| 1461 | (forward-char mode-len) | 1461 | (forward-char mode-len) |
| 1462 | ;; Skip any extended attributes marker ("." or "+"). | ||
| 1463 | (or (looking-at " ") | ||
| 1464 | (forward-char 1)) | ||
| 1462 | (setq nlink (read (current-buffer))) | 1465 | (setq nlink (read (current-buffer))) |
| 1463 | ;; Karsten Wenger <kw@cis.uni-muenchen.de> fixed uid. | 1466 | ;; Karsten Wenger <kw@cis.uni-muenchen.de> fixed uid. |
| 1464 | (setq uid (buffer-substring (1+ (point)) | 1467 | (setq uid (buffer-substring (1+ (point)) |