* mpc.el (mpc-intersection, mpc-host, mpc-songs-playlist)

  (mpc-songs-jump-to, mpc-resume): Doc fixes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c0586d9b4eee23c8f8a2a22226be3a994707d480..0fe7ef21efc5910326e3cc46f4c5403feb9f0e6a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/mpc.el b/lisp/mpc.el
index 22c03dd66f236ddc32ac07dddafb1cff8956b058..b099d039ebb321905312872848d83b365aa6ac76 100644 (file)
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -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 @@ numerically rather than lexicographically."
           (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 @@ Return non-nil if a selection was deactivated."
 
 (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 @@ This is used so that they can be compared with `eq', which is needed for
             (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 @@ This is used so that they can be compared with `eq', which is needed for
   (mpc-cmd-pause "1"))
 
 (defun mpc-resume ()
-  "Pause playing."
+  "Resume playing."
   (interactive)
   (mpc-cmd-pause "0"))