A ß
короче, система такая, вешаешь :around эдвайс на text-scale-adjust, в нем определяешь company-box-frame для текущего фрейма/буфера и запускаешь t-s-a для текущего фрейма и для c-b фрейма
ох, это как-то по китайски для меня. кароч я сдел совершенно по-кретински:
;; text-scale increase breaks how popus from company mode work. so
;; instead I define two fonts, norma and large. This should be
;; sufficient for now, just call these func-s
(defun font-normal ()
(interactive)
(set-face-attribute 'default nil :height 120))
(defun font-large ()
(interactive)
(set-face-attribute 'default nil :height 180))
(global-set-key (kbd "C-=") 'font-large)
(global-set-key (kbd "C--") 'font-normal)
два размера — один меня устраивает, когда я в ноут смотрю, второй, когда на большом внешнем монике. определяю их глобально, и поэтому в компани такие же размеры и все выглядит хорошо.