From c710ac3c08b7657f775b5d5f63bf98d3c71f2a5d Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 2 Dec 2009 02:08:21 +0000 Subject: [PATCH] * mpc.el (mpc-intersection, mpc-host, mpc-songs-playlist) (mpc-songs-jump-to, mpc-resume): Doc fixes. --- lisp/ChangeLog | 7 ++++++- lisp/mpc.el | 14 +++++++------- 2 files changed, 13 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c0586d9b4ee..0fe7ef21efc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-12-02 Juanma Barranquero + + * mpc.el (mpc-intersection, mpc-host, mpc-songs-playlist) + (mpc-songs-jump-to, mpc-resume): Doc fixes. + 2009-12-01 Rob Riepel * emulation/tpu-extras.el (tpu-cursor-free-mode): Emit message. @@ -49,7 +54,7 @@ 2009-12-01 Dan Nicolaescu 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 (tiny change) diff --git a/lisp/mpc.el b/lisp/mpc.el index 22c03dd66f2..b099d039ebb 100644 --- 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")) -- 2.39.5