mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

Use decoded-time accessors in vc-cvs

Browse Source 
* lisp/vc/vc-cvs.el (vc-cvs-parse-entry): Use decoded-time
accessors for results from `parse-time-string'.
This commit is contained in:
Lars Ingebrigtsen 2019-08-01 13:48:08 +02:00
parent 3001c6eaa8
commit 70a2f2b09a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/vc/vc-cvs.el
View File

@ -1180,7 +1180,7 @@ is non-nil."
(parsed-time (progn (require 'parse-time)
(parse-time-string (concat time " +0000")))))
(cond ((and (not (string-match "\\+" time))
(car parsed-time)
(decoded-time-second parsed-time)
;; Compare just the seconds part of the file time,
;; since CVS file time stamp resolution is just 1 second.
(= (encode-time mtime 'integer)