diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-12-22 22:09:22 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-12-22 22:09:22 +0000 |
commit | 5496868f20ab53214f871c3e50f4415aa5a28026 (patch) | |
tree | 94ae6c407f0c7ddacccd755458b1dc8e67010120 /lisp/dired-x.el | |
parent | 850fa5fa83581dc01593ba8ba2930418fe9fecf1 (diff) | |
download | emacs-5496868f20ab53214f871c3e50f4415aa5a28026.tar.gz |
(dired-mark-sexp): Skip leading space in defining `uid'.
Diffstat (limited to 'lisp/dired-x.el')
-rw-r--r-- | lisp/dired-x.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 859448e318a..bc6cbacfb53 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -1461,6 +1461,7 @@ See also variable `dired-vm-read-only-folders'." ;; Does anyone use this? - lrd 6/29/93. +;; Apparently people do use it. - lrd 12/22/97. (defun dired-mark-sexp (predicate &optional unflag-p) "Mark files for which PREDICATE returns non-nil. With a prefix arg, unflag those files instead. @@ -1522,7 +1523,8 @@ to mark all zero length files." (setq mode (buffer-substring (point) (+ mode-len (point)))) (forward-char mode-len) (setq nlink (read (current-buffer))) - (setq uid (buffer-substring (point) (progn (forward-word 1) (point)))) + ;; Karsten Wenger <kw@cis.uni-muenchen.de> fixed uid. + (setq uid (buffer-substring (+ (point) 1) (progn (forward-word 1) (point)))) (re-search-forward "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)") (goto-char (match-beginning 1)) (forward-char -1) |