Skip to content

Commit

Permalink
Fix issue volume-raise-10 is broken dbrock#3
Browse files Browse the repository at this point in the history
  • Loading branch information
dieterdeyke committed Dec 25, 2019
1 parent ecc1550 commit 65a88e9
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions volume.el
Original file line number Diff line number Diff line change
Expand Up @@ -6,7 +6,7 @@
;; Author: Daniel Brockman <[email protected]>
;; URL: http://www.brockman.se/software/volume-el/
;; Created: September 9, 2005
;; Updated: August 27, 2008
;; Updated: December 25, 2019
;; Version: 1.0

;; This file is free software; you can redistribute it and/or
Expand Down Expand Up @@ -816,28 +816,28 @@ If N is negative, call `volume-raise' instead."
(defun volume-lower-10 (&optional n)
"Lower the volume by 10 N percentage units."
(interactive "p")
(volume-lower (* n 10)))
(volume-lower (* (or n 1) 10)))

(defalias 'volume-lower-more 'volume-lower-10)
(make-obsolete 'volume-lower-more 'volume-lower-10)

(defun volume-raise-10 (&optional n)
"Raise the volume by 10 N percentage units."
(interactive "p")
(volume-raise (* n 10)))
(volume-raise (* (or n 1) 10)))

(defalias 'volume-raise-more 'volume-raise-10)
(make-obsolete 'volume-raise-more 'volume-raise-10)

(defun volume-lower-50 (&optional n)
"Lower the volume by 50 N percentage units."
(interactive "p")
(volume-lower (* n 50)))
(volume-lower (* (or n 1) 50)))

(defun volume-raise-50 (&optional n)
"Raise the volume by 50 N percentage units."
(interactive "p")
(volume-raise (* n 50)))
(volume-raise (* (or n 1) 50)))

(dotimes (n 11)
(eval `(defun ,(intern (format "volume-set-to-%d%%" (* n 10))) ()
Expand Down

0 comments on commit 65a88e9

Please sign in to comment.