mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

Fix vg-hg-annotate-time bug

Browse Source 
* lisp/vc/vc-hg.el (vc-hg-annotate-time): Fix extraction of timestamp
from string.
* test/lisp/vc/vc-hg-tests.el (vc-hg-annotate-time): Test that the
correct timestamp is found.

Copyright-paperwork-exempt: yes
This commit is contained in:
Kjetil Orbekk 2023-12-29 08:59:23 -05:00 committed by Dmitry Gutov
parent 1c369263db
commit 73126d62a8
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/vc/vc-hg.el
View File

@ -584,8 +584,8 @@ Optional arg REVISION is a revision to annotate from."
(vc-annotate-convert-time (vc-annotate-convert-time
(let ((str (match-string-no-properties 2))) (let ((str (match-string-no-properties 2)))
(encode-time 0 0 0 (encode-time 0 0 0
(string-to-number (substring str 6 8)) (string-to-number (substring str 8 10))
(string-to-number (substring str 4 6)) (string-to-number (substring str 5 7))
(string-to-number (substring str 0 4))))))) (string-to-number (substring str 0 4)))))))
(defun vc-hg-annotate-extract-revision-at-line () (defun vc-hg-annotate-extract-revision-at-line ()

4
test/lisp/vc/vc-hg-tests.el
View File

@ -53,6 +53,8 @@
(ert-deftest vc-hg-annotate-time () (ert-deftest vc-hg-annotate-time ()
(with-temp-buffer (with-temp-buffer
(save-excursion (insert "philringnalda 218075 2014-11-28 CLOBBER:")) (save-excursion (insert "philringnalda 218075 2014-11-28 CLOBBER:"))
(should (floatp (vc-hg-annotate-time))))) (should (equal (vc-hg-annotate-time)
(vc-annotate-convert-time
(encode-time 0 0 0 28 11 2014))))))
;;; vc-hg-tests.el ends here ;;; vc-hg-tests.el ends here