mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(mpc-songs-jump-to, mpc-resume): Doc fixes.
This commit is contained in:
Juanma Barranquero 2009-12-02 02:08:21 +00:00
parent 7fa123c8f7
commit c710ac3c08
2 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -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)

14
lisp/mpc.el
View file

@ -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"))