mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Use decoded time accessors in ediff-mult

Browse source 
* lisp/vc/ediff-mult.el (ediff-format-date): Use decoded time
accessors.
This commit is contained in:
Lars Ingebrigtsen 2019-07-30 13:11:38 +02:00
parent 4134e6f87c
commit 74c5d688bb
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/vc/ediff-mult.el
View file

@ -1205,13 +1205,12 @@ behavior."
;; TIME is like the output of decode-time
(defun ediff-format-date (time)
(format "%s %2d %4d %s:%s:%s"
(cdr (assoc (nth 4 time) ediff-months)) ; month
(nth 3 time) ; day
(nth 5 time) ; year
(ediff-fill-leading-zero (nth 2 time)) ; hour
(ediff-fill-leading-zero (nth 1 time)) ; min
(ediff-fill-leading-zero (nth 0 time)) ; sec
))
(cdr (assoc (decoded-time-month time) ediff-months))
(decoded-time-day time)
(decoded-time-year time)
(ediff-fill-leading-zero (decoded-time-hour time))
(ediff-fill-leading-zero (decoded-time-minute time))
(ediff-fill-leading-zero (decoded-time-second time))))
;; Draw the directories
(defun ediff-insert-dirs-in-meta-buffer (meta-list)