mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(dired-mark-sexp): Skip leading space in defining `uid'.

Browse Source
This commit is contained in:
Richard M. Stallman 1997-12-22 22:09:22 +00:00
parent 8557ea062c
commit 44c816daa8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/dired-x.el
View File

@ -1461,6 +1461,7 @@ See also variable `dired-vm-read-only-folders'."
;; Does anyone use this? - lrd 6/29/93. ;; 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) (defun dired-mark-sexp (predicate &optional unflag-p)
"Mark files for which PREDICATE returns non-nil. "Mark files for which PREDICATE returns non-nil.
With a prefix arg, unflag those files instead. 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)))) (setq mode (buffer-substring (point) (+ mode-len (point))))
(forward-char mode-len) (forward-char mode-len)
(setq nlink (read (current-buffer))) (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\\)") (re-search-forward "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)")
(goto-char (match-beginning 1)) (goto-char (match-beginning 1))
(forward-char -1) (forward-char -1)