diff options
author | Trent Buck <trentbuck@gmail.com> | 2005-11-19 18:39:00 +0000 |
---|---|---|
committer | Trent Buck <trentbuck@gmail.com> | 2005-11-19 18:39:00 +0000 |
commit | b5bd47545ea803d97bd9107fee096f9c064dcd87 (patch) | |
tree | 3beb29a89eedfb898331b8dcfd34cfbae1d0b491 | |
parent | c959a9d8568e5a5fa318ff2a8e8c46b324a44676 (diff) |
emms-info-libtag.el: Fix a couple of typos.
darcs-hash:20051119183945-8f417-4a85bfd58f00ae44dc404ef6ebc48e91b3261678.gz
-rw-r--r-- | emms-info-libtag.el | 6 |
1 files 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) |