branch: elpa/popup
commit 7743199800719b074c4ae563ff37e869d8eb379d
Author: kostafey <kosta...@gmail.com>
Commit: kostafey <kosta...@gmail.com>
Remove meaningless let.
---
popup.el | 10 ++++------
1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/popup.el b/popup.el
index 875fa6d..2eba784 100644
--- a/popup.el
+++ b/popup.el
@@ -835,16 +835,14 @@ KEYMAP is a keymap that will be put on the popup
contents."
(defun popup-page-next (popup)
"Select next item of POPUP per `popup-height' range.
Pages down through POPUP."
- (let ((counter 0))
- (dotimes (counter (1- (popup-height popup)))
- (popup-next popup))))
+ (dotimes (counter (1- (popup-height popup)))
+ (popup-next popup)))
(defun popup-page-previous (popup)
"Select previous item of POPUP per `popup-height' range.
Pages up through POPUP."
- (let ((counter 0))
- (dotimes (counter (1- (popup-height popup)))
- (popup-previous popup))))
+ (dotimes (counter (1- (popup-height popup)))
+ (popup-previous popup)))
(defun popup-scroll-down (popup &optional n)
"Scroll down N of POPUP and draw."
