Ye Wenbin <[EMAIL PROTECTED]> writes:
> +(defun emms-uniq-list (list stringfy)
> + "Compare stringfied element of list, and remove duplicate elements."
> + (let ((hash (make-hash-table :test 'equal))
> + str)
> + (remove-if (lambda (elm)
> + (setq str (funcall stringfy elm))
> + (if (gethash str hash) t
> + (puthash str t hash) nil)) list)))
emms.el currently does not use or require 'cl. I'd actually be
rather happy if it could stay that way. I fixed the code to live
without cl.
Also, please be careful when writing lisp code. Lines of code is
not something you have to optimize for. Multiple statements per
line are easily overlooked.
One additional note: Please try to separate semantically disjunct
changes into different darcs patches. Thanks :-)
Regards,
-- Jorgen
--
((email . "[EMAIL PROTECTED]") (www . "http://www.forcix.cx/";)
(gpg . "1024D/028AF63C") (irc . "nick forcer on IRCnet"))
_______________________________________________
Emms-help mailing list
Emms-help@gnu.org
http://lists.gnu.org/mailman/listinfo/emms-help
