Mercurial > emacs

comparison lisp/dired-x.el @ 20513:6044f0be20eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-mark-sexp): Skip leading space in defining `uid'.
author Richard M. Stallman <rms@gnu.org>
date Mon, 22 Dec 1997 22:09:22 +0000
parents 347133072016
children eefd01920e56
comparison
equal deleted inserted replaced
20512:65399b8cd0ad 20513:6044f0be20eb
1459 (if dired-find-subdir (dired-goto-subdir dirname)) ; new 1459 (if dired-find-subdir (dired-goto-subdir dirname)) ; new
1460 (if dired-trivial-filenames (dired-goto-next-nontrivial-file))) 1460 (if dired-trivial-filenames (dired-goto-next-nontrivial-file)))
1461 1461
1462 1462
1463 ;; Does anyone use this? - lrd 6/29/93. 1463 ;; Does anyone use this? - lrd 6/29/93.
1464 ;; Apparently people do use it. - lrd 12/22/97.
1464 (defun dired-mark-sexp (predicate &optional unflag-p) 1465 (defun dired-mark-sexp (predicate &optional unflag-p)
1465 "Mark files for which PREDICATE returns non-nil. 1466 "Mark files for which PREDICATE returns non-nil.
1466 With a prefix arg, unflag those files instead. 1467 With a prefix arg, unflag those files instead.
1467 1468
1468 PREDICATE is a lisp expression that can refer to the following symbols: 1469 PREDICATE is a lisp expression that can refer to the following symbols:
1520 (setq inode nil 1521 (setq inode nil
1521 s nil)) 1522 s nil))
1522 (setq mode (buffer-substring (point) (+ mode-len (point)))) 1523 (setq mode (buffer-substring (point) (+ mode-len (point))))
1523 (forward-char mode-len) 1524 (forward-char mode-len)
1524 (setq nlink (read (current-buffer))) 1525 (setq nlink (read (current-buffer)))
1525 (setq uid (buffer-substring (point) (progn (forward-word 1) (point)))) 1526 ;; Karsten Wenger <kw@cis.uni-muenchen.de> fixed uid.
1527 (setq uid (buffer-substring (+ (point) 1) (progn (forward-word 1) (point))))
1526 (re-search-forward "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)") 1528 (re-search-forward "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)")
1527 (goto-char (match-beginning 1)) 1529 (goto-char (match-beginning 1))
1528 (forward-char -1) 1530 (forward-char -1)
1529 (setq size (string-to-int (buffer-substring (save-excursion 1531 (setq size (string-to-int (buffer-substring (save-excursion
1530 (backward-word 1) 1532 (backward-word 1)