diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2004-09-04 13:24:04 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2004-09-04 13:24:04 +0000 |
| commit | 2a1c966e8185bd8f9d9f0942e538c82f20a4a073 (patch) | |
| tree | 3701c32b2fe19ee77477327299b5cf0c2af50def /lisp | |
| parent | 0721fbe3c2761509b246980d2000275e8582fb6c (diff) | |
| download | emacs-2a1c966e8185bd8f9d9f0942e538c82f20a4a073.tar.gz | |
(eshell-display-predicate-help): Doc fix. Support choosing seconds
with "s".
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/eshell/em-pred.el | 15 |
2 files changed, 13 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 85f2ae468de..015f4fbc60f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-09-04 Matt Hodges <matt@stchem.bham.ac.uk> (tiny change) + + * eshell/em-pred.el (eshell-predicate-help-string): Doc fix. + Support choosing seconds with "s". + 2004-09-04 Jari Aalto <jari.aalto@poboxes.com> * terminal.el (te-escape): Show `?' in prompt for help key. diff --git a/lisp/eshell/em-pred.el b/lisp/eshell/em-pred.el index 26349b4e94b..bbb82fc7cd8 100644 --- a/lisp/eshell/em-pred.el +++ b/lisp/eshell/em-pred.el @@ -186,12 +186,13 @@ OWNERSHIP: FILE ATTRIBUTES: l[+-]N +/-/= N links - a[Mwhm][+-](N|'FILE') access time +/-/= N mnths/weeks/days/mins - if FILE specified, use as comparison basis; - so a+'file.c' shows files accessed before - file.c was last accessed - m[Mwhm][+-](N|'FILE') modification time... - c[Mwhm][+-](N|'FILE') change time... + a[Mwhms][+-](N|'FILE') access time +/-/= N mnths/weeks/hours/mins/secs + (days if unspecified) if FILE specified, + use as comparison basis; so a+'file.c' + shows files accessed before file.c was + last accessed + m[Mwhms][+-](N|'FILE') modification time... + c[Mwhms][+-](N|'FILE') change time... L[kmp][+-]N file size +/-/= N Kb/Mb/blocks EXAMPLES: @@ -409,7 +410,7 @@ returning the resultant string." "Return a predicate to test whether a file matches a certain time." (let* ((quantum 86400) qual amount when open close end) - (when (memq (char-after) '(?M ?w ?h ?m)) + (when (memq (char-after) '(?M ?w ?h ?m ?s)) (setq quantum (char-after)) (cond ((eq quantum ?M) |