branch: externals/ztree
commit 2f62ba7502f0cb8783ee39179ea8973593bf8c99
Author: Alexey Veretennikov <[email protected]>
Commit: Alexey Veretennikov <[email protected]>
Issue #62: Cleared warnings
---
ztree-view.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ztree-view.el b/ztree-view.el
index 1a677e8..c539699 100644
--- a/ztree-view.el
+++ b/ztree-view.el
@@ -42,6 +42,7 @@
;;
;;; Code:
+(eval-when-compile (require 'cl))
(require 'subr-x)
(require 'ztree-util)
@@ -189,8 +190,7 @@ the buffer is split to 2 trees")
(defun ztree-scroll-to-line (line)
"Set the cursor to specified LINE and to the text offset (if possible)."
- (let ((cur-pos (current-column))
- (center (/ (window-width) 2))
+ (let ((center (/ (window-width) 2))
(cur-line (line-number-at-pos)))
;; based on dired-next-line
;; set line-move to move by logical lines
