# HG changeset patch # User Juanma Barranquero <lekktu@gmail.com> # Date 1259719701 0 # Node ID 06698b91c77901d907877e1f93fdd5a6c29e1153 # Parent 2f2ce7005c10a1e5c10c48e49af7be0ac5572269 * mpc.el (mpc-intersection, mpc-host, mpc-songs-playlist) (mpc-songs-jump-to, mpc-resume): Doc fixes. diff -r 2f2ce7005c10 -r 06698b91c779 lisp/ChangeLog --- a/lisp/ChangeLog Wed Dec 02 00:48:21 2009 +0000 +++ b/lisp/ChangeLog Wed Dec 02 02:08:21 2009 +0000 @@ -1,3 +1,8 @@ +2009-12-02 Juanma Barranquero <lekktu@gmail.com> + + * mpc.el (mpc-intersection, mpc-host, mpc-songs-playlist) + (mpc-songs-jump-to, mpc-resume): Doc fixes. + 2009-12-01 Rob Riepel <riepel@networking.Stanford.EDU> * emulation/tpu-extras.el (tpu-cursor-free-mode): Emit message. @@ -49,7 +54,7 @@ 2009-12-01 Dan Nicolaescu <dann@ics.uci.edu> Make vc-print-log buttons work. - * log-view.el (log-view-mode-map): Inherit from from widget-keymap. + * log-view.el (log-view-mode-map): Inherit from from widget-keymap. 2009-11-30 Ryan C. Thompson <rct@thompsonclan.org> (tiny change) diff -r 2f2ce7005c10 -r 06698b91c779 lisp/mpc.el --- a/lisp/mpc.el Wed Dec 02 00:48:21 2009 +0000 +++ b/lisp/mpc.el Wed Dec 02 02:08:21 2009 +0000 @@ -42,7 +42,7 @@ ;; - add bindings/buttons/menuentries for the various commands. ;; - mpc-undo ;; - visual feedback for drag'n'drop -;; - display/set `repeat' and `random' state (and maybe also `crossfade'). +;; - display/set `repeat' and `random' state (and maybe also `crossfade'). ;; - allow multiple *mpc* sessions in the same Emacs to control different mpds. ;; - look for .folder.png (freedesktop) or folder.jpg (XP) as well. ;; - fetch album covers and lyrics from the web? @@ -163,8 +163,8 @@ (defun mpc-intersection (l1 l2 &optional selectfun) "Return L1 after removing all elements not found in L2. -SELECTFUN if non-nil elements aren't compared directly, but instead they -are passed through SELECTFUN before comparison." +If SELECTFUN is non-nil, elements aren't compared directly, but instead +they are passed through SELECTFUN before comparison." (let ((res ())) (if selectfun (setq l2 (mapcar selectfun l2))) (dolist (elem l1) @@ -241,7 +241,7 @@ (if (getenv "MPD_PORT") (concat ":" (getenv "MPD_PORT")))) "Host (and port) where the Music Player Daemon is running. The format is \"HOST\" or \"HOST:PORT\" where PORT defaults to 6600 -and HOST default to localhost." +and HOST defaults to localhost." :type 'string) (defvar mpc-proc nil) @@ -1670,7 +1670,7 @@ (defvar mpc-songs-playlist nil "Name of the currently selected playlist, if any. -t means the main playlist.") +A value of t means the main playlist.") (make-variable-buffer-local 'mpc-songs-playlist) (defun mpc-playlist-create (name) @@ -1954,7 +1954,7 @@ (nreverse files))))))) (defun mpc-songs-jump-to (song-file &optional posn) - "Jump to song SONG-FILE, interactively, this is the song at point." + "Jump to song SONG-FILE; interactively, this is the song at point." (interactive (let* ((event last-nonmenu-event) (posn (event-end event))) @@ -2258,7 +2258,7 @@ (mpc-cmd-pause "1")) (defun mpc-resume () - "Pause playing." + "Resume playing." (interactive) (mpc-cmd-pause "0"))