# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 882828562 0
# Node ID 6044f0be20eba1d9ae4d6d67f9697b884ae14741
# Parent  65399b8cd0addba6a8ef9911f10a73db099d98d3
(dired-mark-sexp): Skip leading space in defining `uid'.

diff -r 65399b8cd0ad -r 6044f0be20eb lisp/dired-x.el
--- a/lisp/dired-x.el	Mon Dec 22 21:50:59 1997 +0000
+++ b/lisp/dired-x.el	Mon Dec 22 22:09:22 1997 +0000
@@ -1461,6 +1461,7 @@
 
 
 ;; 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 @@
               (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)