Fix side effect with golden-ratio and lv
This commit is contained in:
parent
8deb57e6ba
commit
9088e282d5
|
@ -59,12 +59,15 @@
|
||||||
"Set LV window contents to (`format' FORMAT-STRING ARGS)."
|
"Set LV window contents to (`format' FORMAT-STRING ARGS)."
|
||||||
(let ((ori (selected-window))
|
(let ((ori (selected-window))
|
||||||
(str (apply #'format format-string args))
|
(str (apply #'format format-string args))
|
||||||
|
(golden-ratio (when (boundp 'golden-ratio-mode) golden-ratio-mode))
|
||||||
deactivate-mark)
|
deactivate-mark)
|
||||||
|
(when (bound-and-true-p golden-ratio-mode) (golden-ratio-mode -1))
|
||||||
(select-window (lv-window))
|
(select-window (lv-window))
|
||||||
|
(when golden-ratio (golden-ratio-mode))
|
||||||
(unless (string= (buffer-string) str)
|
(unless (string= (buffer-string) str)
|
||||||
(delete-region (point-min) (point-max))
|
(delete-region (point-min) (point-max))
|
||||||
(insert str)
|
(insert str)
|
||||||
(fit-window-to-buffer nil (count-lines (point-min) (point-max)) 1))
|
(fit-window-to-buffer nil nil 1))
|
||||||
(goto-char (point-max))
|
(goto-char (point-max))
|
||||||
(select-window ori)))
|
(select-window ori)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue