;ELC ;;; Compiled by heimdall@baldur on Fri Feb 1 18:34:49 2008 ;;; from file /home/heimdall/repos/emms/emms-info-libtag.el ;;; in Emacs version 23.0.60.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`emms-info-libtag.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\303B\304\303!\204\305\303\306\"\210\307B\304\307!\204\"\305\307\310\"\210\301\207" [current-load-list require emms-info emms-info-libtag-coding-system default-boundp set-default utf-8 emms-info-libtag-program-name "emms-print-metadata"] 3) (defalias 'emms-info-libtag #[(track) "\305!\306=\205t\307\310\311!\"\205t\312\313!\314\216r q\210\315\316\317\320\321\322\321\311!%)!\205seb\210\323\324\321\322#\203@\325\326\321\211#\210\202/eb\210\327\330!\205s\331\332\333!!\332\334! G\335V\203l\336\f\211\337=\203i\340 !\202j #\210*\333y\210\202C+\207" [track #1=#:temp-buffer coding-system-for-read value name emms-track-type file string-match "\\.\\([Mm][Pp]3\\|[oO][gG][gG]\\|[fF][lL][aA][cC]\\|[sS][pP][xX]\\)\\'" emms-track-name generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) zerop utf-8 call-process "emms-print-metadata" nil t re-search-forward "[[:space:]]+$" replace-match "" looking-at "^\\([^=\n]+\\)=\\(.*\\)$" intern-soft match-string 1 2 0 emms-track-set info-playing-time string-to-number] 8]) (provide 'emms-info-libtag)