diff --git a/bongo.el b/bongo.el index 95d20a8..c2e3751 100644 --- a/bongo.el +++ b/bongo.el @@ -6,7 +6,7 @@ ;; Copyright (C) 2011 Jürgen Hötzel ;; Copyright (C) 1998, 2000-2005 Free Software Foundation, Inc. -;; Version: 1.1 +;; Version: 1.2 ;; Package-Requires: ((cl-lib "0.5") (emacs "24.1")) ;; This file is part of Bongo. @@ -5103,7 +5103,7 @@ NEW-ELAPSED-TIME is the new value of the `elapsed-time' property." (bongo-player-total-time player )) new-elapsed-time))) (bongo-player-times-changed player) - (bongo-player-put player 'last-seek-time (current-time)) + (bongo-player-put player 'last-seek-time (time-convert (current-time) 'list)) (run-hook-with-args 'bongo-player-sought-functions player) (when (bongo-buffer-p) (run-hooks 'bongo-player-sought-hook)))) @@ -5114,7 +5114,7 @@ By ``one of the times'' is meant elapsed time or total time.") (defun bongo-player-times-changed (player) "Run the hooks for when one of the times of PLAYER has changed." - (let ((current-seconds (cl-second (current-time)))) + (let ((current-seconds (cl-second (time-convert (current-time) 'list)))) (when (> current-seconds bongo-player-times-last-updated) (setq bongo-player-times-last-updated current-seconds) (save-current-buffer @@ -5338,7 +5338,7 @@ is the value of PLAYER's `time-update-delay-after-seek' property." (let ((time (bongo-player-get player 'last-seek-time))) (or (null time) (time-less-p (seconds-to-time delay) - (subtract-time (current-time) time))))) + (subtract-time (time-convert (current-time) 'list) time))))) (bongo-player-put player 'elapsed-time elapsed-time)))) (defun bongo-player-update-total-time (player total-time) @@ -6487,7 +6487,7 @@ Also fetch metadata and length of track if not fetched already." ;; TODO: The matchers below are just copied from MPlayer's config, since ;; mpv was forked off MPlayer :matcher '((local-file "file:" "http:" "ftp:") - "ogg" "flac" "mp3" "mka" "wav" "wma" + "ogg" "flac" "mp3" "mka" "wav" "webm" "wma" "mpg" "mpeg" "vob" "avi" "ogm" "mp4" "mkv" "mov" "asf" "wmv" "rm" "rmvb" "ts")