Commit 4ec0cf9c authored by Stefan Monnier's avatar Stefan Monnier

* lisp/mpc.el (mpc-volume-mouse-set): Don't burp at the boundaries.

parent 426b5daf
2014-05-01 Stefan Monnier <monnier@iro.umontreal.ca>
* mpc.el (mpc-volume-mouse-set): Don't burp at the boundaries.
2014-04-30 Eli Zaretskii <eliz@gnu.org>
* dired.el (dired-initial-position-hook, dired-initial-position):
......
......@@ -1811,9 +1811,14 @@ A value of t means the main playlist.")
(char-after (posn-point posn))))
'(?◁ ?<))
(- mpc-volume-step) mpc-volume-step))
(newvol (+ (string-to-number (cdr (assq 'volume mpc-status))) diff)))
(mpc-proc-cmd (list "setvol" newvol) 'mpc-status-refresh)
(message "Set MPD volume to %s%%" newvol)))
(curvol (string-to-number (cdr (assq 'volume mpc-status))))
(newvol (max 0 (min 100 (+ curvol diff)))))
(if (= newvol curvol)
(progn
(message "MPD volume already at %s%%" newvol)
(ding))
(mpc-proc-cmd (list "setvol" newvol) 'mpc-status-refresh)
(message "Set MPD volume to %s%%" newvol))))
(defun mpc-volume-widget (vol &optional size)
(unless size (setq size 12.5))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment