Установить ширину текущего окна на текущем кадре на ~ 70%:
(window-resize nil (- (truncate (* 0.7 (frame-width))) (window-width)) t)
Другие окна сокращаются автоматически. Если вы хотите настроить более одного, это становится сложнее.
Как команда:
(defun window-resize-to-70-percent ()
(interactive)
(window-resize nil (- (truncate (* 0.7 (frame-width))) (window-width)) t))