Mercurial > emacs

comparison lisp/eshell/em-pred.el @ 56930:a9d4a0bceffe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eshell-display-predicate-help): Doc fix. Support choosing seconds with "s".
author Eli Zaretskii <eliz@gnu.org>
date Sat, 04 Sep 2004 13:21:51 +0000
parents de50e15a5b8d
children 18a818a2ee7c cce1c0ee76ee
comparison
equal deleted inserted replaced
56929:f2a19288ee51 56930:a9d4a0bceffe
184 u(UID|'user') owned by UID/user 184 u(UID|'user') owned by UID/user
185 g(GID|'group') owned by GID/group 185 g(GID|'group') owned by GID/group
186 186
187 FILE ATTRIBUTES: 187 FILE ATTRIBUTES:
188 l[+-]N +/-/= N links 188 l[+-]N +/-/= N links
189 a[Mwhm][+-](N|'FILE') access time +/-/= N mnths/weeks/days/mins 189 a[Mwhms][+-](N|'FILE') access time +/-/= N mnths/weeks/hours/mins/secs
190 if FILE specified, use as comparison basis; 190 (days if unspecified) if FILE specified,
191 so a+'file.c' shows files accessed before 191 use as comparison basis; so a+'file.c'
192 file.c was last accessed 192 shows files accessed before file.c was
193 m[Mwhm][+-](N|'FILE') modification time... 193 last accessed
194 c[Mwhm][+-](N|'FILE') change time... 194 m[Mwhms][+-](N|'FILE') modification time...
195 c[Mwhms][+-](N|'FILE') change time...
195 L[kmp][+-]N file size +/-/= N Kb/Mb/blocks 196 L[kmp][+-]N file size +/-/= N Kb/Mb/blocks
196 197
197 EXAMPLES: 198 EXAMPLES:
198 *(^@) all non-dot files which are not symlinks 199 *(^@) all non-dot files which are not symlinks
199 .#*(^@) all files which are not symbolic links 200 .#*(^@) all files which are not symbolic links
407 408
408 (defun eshell-pred-file-time (mod-char mod-type attr-index) 409 (defun eshell-pred-file-time (mod-char mod-type attr-index)
409 "Return a predicate to test whether a file matches a certain time." 410 "Return a predicate to test whether a file matches a certain time."
410 (let* ((quantum 86400) 411 (let* ((quantum 86400)
411 qual amount when open close end) 412 qual amount when open close end)
412 (when (memq (char-after) '(?M ?w ?h ?m)) 413 (when (memq (char-after) '(?M ?w ?h ?m ?s))
413 (setq quantum (char-after)) 414 (setq quantum (char-after))
414 (cond 415 (cond
415 ((eq quantum ?M) 416 ((eq quantum ?M)
416 (setq quantum (* 60 60 24 30))) 417 (setq quantum (* 60 60 24 30)))
417 ((eq quantum ?w) 418 ((eq quantum ?w)