diff options
| author | Lars Ingebrigtsen | 2019-08-01 13:46:28 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-08-01 13:48:29 +0200 |
| commit | 9b49afd287f4220d8a3e3ecbf83f3f0dc3745a0a (patch) | |
| tree | 445c452b52bbd62a8e51ead717de2f838bb8887a /lisp/eshell | |
| parent | 5bccff7b5ba3529de29e12de151eb4bfb5859e08 (diff) | |
| download | emacs-9b49afd287f4220d8a3e3ecbf83f3f0dc3745a0a.tar.gz emacs-9b49afd287f4220d8a3e3ecbf83f3f0dc3745a0a.zip | |
Use decoded-time accessors in esh-util
* lisp/eshell/esh-util.el (eshell-parse-ange-ls): Use decoded-time
accessors for results from `parse-time-string'.
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/esh-util.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el index 082403130d4..353b9400f2e 100644 --- a/lisp/eshell/esh-util.el +++ b/lisp/eshell/esh-util.el | |||
| @@ -647,12 +647,12 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable. | |||
| 647 | (name (ange-ftp-parse-filename)) | 647 | (name (ange-ftp-parse-filename)) |
| 648 | (mtime | 648 | (mtime |
| 649 | (let ((moment (parse-time-string (match-string 6)))) | 649 | (let ((moment (parse-time-string (match-string 6)))) |
| 650 | (if (nth 0 moment) | 650 | (if (decoded-time-second moment) |
| 651 | (setcar (nthcdr 5 moment) | 651 | (setf (decoded-time-year moment) |
| 652 | (decoded-time-year (decode-time))) | 652 | (decoded-time-year (decode-time))) |
| 653 | (setcar (nthcdr 0 moment) 0) | 653 | (setf (decoded-time-second moment) 0) |
| 654 | (setcar (nthcdr 1 moment) 0) | 654 | (setf (decoded-time-minute moment) 0) |
| 655 | (setcar (nthcdr 2 moment) 0)) | 655 | (setf (decoded-time-hour moment) 0)) |
| 656 | (encode-time moment))) | 656 | (encode-time moment))) |
| 657 | symlink) | 657 | symlink) |
| 658 | (if (string-match "\\(.+\\) -> \\(.+\\)" name) | 658 | (if (string-match "\\(.+\\) -> \\(.+\\)" name) |