[Emacs-diffs] emacs/lisp ChangeLog mpc.el

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/12/02 02:08:26

Modified files:
        lisp           : ChangeLog mpc.el 

Log message:
        * mpc.el (mpc-intersection, mpc-host, mpc-songs-playlist)
          (mpc-songs-jump-to, mpc-resume): Doc fixes.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16791&r2=1.16792
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mpc.el?cvsroot=emacs&r1=1.2&r2=1.3

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16791
retrieving revision 1.16792
diff -u -b -r1.16791 -r1.16792
--- ChangeLog   1 Dec 2009 20:44:21 -0000       1.16791
+++ ChangeLog   2 Dec 2009 02:08:21 -0000       1.16792
@@ -1,3 +1,8 @@
+2009-12-02  Juanma Barranquero  <address@hidden>
+
+       * mpc.el (mpc-intersection, mpc-host, mpc-songs-playlist)
+       (mpc-songs-jump-to, mpc-resume): Doc fixes.
+
 2009-12-01  Rob Riepel  <address@hidden>
 
        * emulation/tpu-extras.el (tpu-cursor-free-mode): Emit message.

Index: mpc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mpc.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- mpc.el      1 Dec 2009 16:21:36 -0000       1.2
+++ mpc.el      2 Dec 2009 02:08:26 -0000       1.3
@@ -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"))