diff options
| author | Lars Ingebrigtsen | 2019-08-01 13:48:08 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-08-01 13:48:29 +0200 |
| commit | 70a2f2b09a902e0408aa0b640d0c2e1e5dcc6216 (patch) | |
| tree | 46bcd46eb9b5b13f4070caf80a85056c29fe5c22 | |
| parent | 3001c6eaa878db9e384bfcb499fe483a0dad7430 (diff) | |
| download | emacs-70a2f2b09a902e0408aa0b640d0c2e1e5dcc6216.tar.gz emacs-70a2f2b09a902e0408aa0b640d0c2e1e5dcc6216.zip | |
Use decoded-time accessors in vc-cvs
* lisp/vc/vc-cvs.el (vc-cvs-parse-entry): Use decoded-time
accessors for results from `parse-time-string'.
| -rw-r--r-- | lisp/vc/vc-cvs.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el index 6fb5fa09c7e..b33a106f3a9 100644 --- a/lisp/vc/vc-cvs.el +++ b/lisp/vc/vc-cvs.el | |||
| @@ -1180,7 +1180,7 @@ is non-nil." | |||
| 1180 | (parsed-time (progn (require 'parse-time) | 1180 | (parsed-time (progn (require 'parse-time) |
| 1181 | (parse-time-string (concat time " +0000"))))) | 1181 | (parse-time-string (concat time " +0000"))))) |
| 1182 | (cond ((and (not (string-match "\\+" time)) | 1182 | (cond ((and (not (string-match "\\+" time)) |
| 1183 | (car parsed-time) | 1183 | (decoded-time-second parsed-time) |
| 1184 | ;; Compare just the seconds part of the file time, | 1184 | ;; Compare just the seconds part of the file time, |
| 1185 | ;; since CVS file time stamp resolution is just 1 second. | 1185 | ;; since CVS file time stamp resolution is just 1 second. |
| 1186 | (= (encode-time mtime 'integer) | 1186 | (= (encode-time mtime 'integer) |