diff options
author | Michael Olson <mwolson@gnu.org> | 2006-01-06 03:24:00 +0000 |
---|---|---|
committer | Michael Olson <mwolson@gnu.org> | 2006-01-06 03:24:00 +0000 |
commit | 65dc3b56ef44b83fcb4f87cf8bf397fe0a8402e8 (patch) | |
tree | e14f84596a041ef7a9d98810b3c5b6d82ba8ac77 | |
parent | 6181ec571579b78c12424a7f55347be6b24f169c (diff) |
Use emms-replace-regexp-in-string.
darcs-hash:20060106032400-1bfb2-7036a03bfa98f5379e95bb61848c497de43b3be6.gz
-rw-r--r-- | emms-lyrics.el | 6 | ||||
-rw-r--r-- | emms-playing-time.el | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/emms-lyrics.el b/emms-lyrics.el index 3ed5a66..586ce1b 100644 --- a/emms-lyrics.el +++ b/emms-lyrics.el @@ -170,7 +170,7 @@ To find FILE, will look up in current directory and `emms-lyrics-dir'." (emms-playlist-current-selected-track) 'name))) (emms-lyrics-read-file - (replace-regexp-in-string + (emms-replace-regexp-in-string (file-name-extension file) "lrc" file))) (emms-lyrics-set-timer))) @@ -329,7 +329,7 @@ a valid `emms-lyrics-dir'." (concat emms-source-file-gnu-find " " emms-lyrics-dir " -name " "'" ; wrap up whitespaces - (replace-regexp-in-string + (emms-replace-regexp-in-string "'" "*" ; FIX ME, '->\' (file-name-nondirectory file)) "'")) @@ -355,7 +355,7 @@ beginning of next line." emms-lyrics-elapsed-time)) (min (/ (* (floor (/ total 60)) 100) 100)) (sec (/ (floor (* (rem* total 60) 100)) 100.0))) - (insert (replace-regexp-in-string + (insert (emms-replace-regexp-in-string " " "0" (format "[%2d:%2d]" min sec)))) (emms-lyrics-next-line)) diff --git a/emms-playing-time.el b/emms-playing-time.el index 2a5d914..3604ce4 100644 --- a/emms-playing-time.el +++ b/emms-playing-time.el @@ -151,7 +151,7 @@ should enable `emms-playing-time-display-p' first, though." (setq emms-playing-time-string (format emms-playing-time-display-format - (replace-regexp-in-string + (emms-replace-regexp-in-string " " "0" (if (or emms-playing-time-display-short-p ;; unable to get total playing-time |