From 6f273ffc253e5e2f863fe1c7dd1684238a21d03f Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 13 Jan 2020 01:43:42 -0500 Subject: [PATCH] Totally disable company-box scrollbar Since the problem persists despite the earlier window-width fix. Fixes sebastiencs/company-box#44 --- modules/completion/company/config.el | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/modules/completion/company/config.el b/modules/completion/company/config.el index 1555d6d25..a4e53da2d 100644 --- a/modules/completion/company/config.el +++ b/modules/completion/company/config.el @@ -116,16 +116,11 @@ ((facep sym) 'ElispFace))))) (defadvice! +company-remove-scrollbar-a (orig-fn &rest args) - "This restrains the scrollbar to a width of ~32px. See + "This disables the company-box scrollbar, because: https://github.com/sebastiencs/company-box/issues/44" :around #'company-box--update-scrollbar - (cl-letf* ((old-display-buffer-in-side-window - (symbol-function #'display-buffer-in-side-window)) - ((symbol-function #'display-buffer-in-side-window) - (lambda (buffer alist) - (setf (alist-get 'window-width alist) 0.1) - (funcall old-display-buffer-in-side-window - buffer alist)))) + (cl-letf (((symbol-function #'display-buffer-in-side-window) + (symbol-function #'ignore))) (apply orig-fn args))))