... : " onoroff))) ;; toggle repeat mode. (defun mpcel-repeat-mode (offoron) "mpcel : toggle repeat mode." (interactive "MRandomize ? ( \"on\" or \"off\") : ") (call-process mpcel-mpc-program nil nil nil "reapeat" offoron) (message (concat "Repeat mode : " offoron))) ;; mpc pause playing music : (defun mpcel-pause () "Pause music in mpd" (interactive) (call-process ...

..." onoroff)))) ;; toggle repeat mode. (defun mpcel-repeat-mode (offoron) "mpcel : toggle repeat mode." (interactive "MRandomize ? ( \"on\"... ") (let (repeatmode) (setq repeatmode (concat "mpc reapeat " offoron)) (shell-command-to-string repeatmode) (message (concat "Repeat mode : " offoron)))) ;; mpc pause playing music : (defun mpcel-pause () "Pause music ...

..." onoroff)))) ;; toggle random mode. (defun mpcel-repeat-mode (offoron) "mpcel : toggle repeat mode." (interactive "MRandomize ? ( \"... (let (repeatmode) (setq repeatmode (concat "mpc reapeat " offoron)) (shell-command-to-string repeatmode) (message (concat "Repeat mode : " offoron)))) ;; mpc pause playing music : (defun mpcel-pause () "Pause ...

..." onoroff)))) ;; toggle random mode. (defun mpcel-repeat-mode (offoron) "mpcel : toggle repeat mode." (interactive "MRandomize ? ( \"on\"... ") (let (repeatmode) (setq repeatmode (concat "mpc reapeat " offoron)) (shell-command-to-string repeatmode) (message (concat "Repeat mode : " offoron)))) ;; mpc pause playing music : (defun mpcel-pause () "Pause music ...