From 8d0fa5086514114b7259e7207c42815bf54535b9 Mon Sep 17 00:00:00 2001 From: Akib Azmain Turja Date: Tue, 28 Jun 2022 12:50:11 +0600 Subject: [PATCH] Add some comments --- corfu-mouse.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/corfu-mouse.el b/corfu-mouse.el index 3180aef..e44b03d 100644 --- a/corfu-mouse.el +++ b/corfu-mouse.el @@ -66,6 +66,8 @@ (corfu-complete))) (define-key map [mouse-1] mouse-1) (define-key map [mouse-3] mouse-3) + + ;; Ignore these events to keep completion session alive. (define-key map [down-mouse-1] #'ignore) (define-key map [down-mouse-3] #'ignore) map)) @@ -78,6 +80,9 @@ FCANDS is the return value of `corfu--format-candidates'." (cands (caddr fcands))) (while cands (let ((line (car cands))) + + ;; Append necessary amount of spaces to make it as wide as the + ;; popup. (setq line (concat line (make-string (- (cadr fcands) (string-width line)) ? )))