From b5bd47545ea803d97bd9107fee096f9c064dcd87 Mon Sep 17 00:00:00 2001 From: Trent Buck Date: Sat, 19 Nov 2005 18:39:00 +0000 Subject: emms-info-libtag.el: Fix a couple of typos. darcs-hash:20051119183945-8f417-4a85bfd58f00ae44dc404ef6ebc48e91b3261678.gz --- emms-info-libtag.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/emms-info-libtag.el b/emms-info-libtag.el index fa0019a..4cce9da 100644 --- a/emms-info-libtag.el +++ b/emms-info-libtag.el @@ -35,15 +35,13 @@ ;;; Code: -(require 'rx) - (defvar emms-info-libtag-coding-system 'utf-8) (defvar emms-info-libtag-program-name "emms-print-metadata") (defun emms-info-libtag (track) (when (and (eq 'file (emms-track-type track)) (string-match - "\\.\([Mm][Pp]3\|[oO][gG][gG]\|[fF][lL][aA][cC]\)\\'" + "\\.\\([Mm][Pp]3\\|[oO][gG][gG]\\|[fF][lL][aA][cC]\\)\\'" (emms-track-name track))) (with-temp-buffer (when (zerop @@ -53,7 +51,7 @@ (emms-track-name track)))) (goto-char (point-min)) (while (looking-at "^\\([^=]+\\)=\\(.*\\)$") - (let ((name (intern (match-string 1))) + (let ((name (intern-soft (match-string 1))) (value (match-string 2))) (when (> (length value) 0) -- cgit v1.2.3