awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Totally disable company-box scrollbar

Browse Source 
Since the problem persists despite the earlier window-width fix.

Fixes sebastiencs/company-box#44
This commit is contained in:
Henrik Lissner
2020-01-13 01:43:42 -05:00
parent e7de8118ce
commit 6f273ffc25
1 changed files with 3 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/completion/company/config.el
View File

@ -116,16 +116,11 @@
((facep sym) 'ElispFace))))) ((facep sym) 'ElispFace)))))
(defadvice! +company-remove-scrollbar-a (orig-fn &rest args) (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" https://github.com/sebastiencs/company-box/issues/44"
:around #'company-box--update-scrollbar :around #'company-box--update-scrollbar
(cl-letf* ((old-display-buffer-in-side-window (cl-letf (((symbol-function #'display-buffer-in-side-window)
(symbol-function #'display-buffer-in-side-window)) (symbol-function #'ignore)))
((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))))
(apply orig-fn args)))) (apply orig-fn args))))