Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4ec0cf9c
Commit
4ec0cf9c
authored
Apr 30, 2014
by
Stefan Monnier
Browse files
* lisp/mpc.el (mpc-volume-mouse-set): Don't burp at the boundaries.
parent
426b5daf
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
3 deletions
+12
-3
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/mpc.el
lisp/mpc.el
+8
-3
No files found.
lisp/ChangeLog
View file @
4ec0cf9c
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):
...
...
lisp/mpc.el
View file @
4ec0cf9c
...
...
@@ -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))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment