Michael Olson <[EMAIL PROTECTED]> writes: > (defun np-maybe () > (emms-player-mpd-show > nil > (lambda (buffer desc) > (when (stringp desc) > (unless (and (stringp np-last) > (string= np-last desc)) > (setq np-last desc) > (message desc))))))
Oops, that should be:
(defun np-maybe ()
(emms-player-mpd-show
nil
(lambda (buffer desc)
(when (and (stringp desc)
(not (string= desc "")))
(unless (and (stringp np-last)
(string= np-last desc))
(setq np-last desc)
(message "%s" desc))))))
--
Michael Olson -- FSF Associate Member #652 -- http://www.mwolson.org/
Interests: Lisp, text markup, protocols -- Jabber: mwolson_at_hcoop.net
/` |\ | | | Projects: Emacs, Muse, ERC, EMMS, Planner, ErBot, DVC
|_] | \| |_| Reclaim your digital rights by eliminating DRM.
See http://www.defectivebydesign.org/what_is_drm for details.
pgpL2TfHxHkr4.pgp
Description: PGP signature
_______________________________________________ Emms-help mailing list [email protected] http://lists.gnu.org/mailman/listinfo/emms-help
