TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix side effect with golden-ratio and lv

This commit is contained in:
syl20bnr 2015-02-20 23:25:06 -05:00
parent 8deb57e6ba
commit 9088e282d5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/libs/lv.el
View File

@ -59,12 +59,15 @@
"Set LV window contents to (`format' FORMAT-STRING ARGS)."
(let ((ori (selected-window))
(str (apply #'format format-string args))
(golden-ratio (when (boundp 'golden-ratio-mode) golden-ratio-mode))
deactivate-mark)
(when (bound-and-true-p golden-ratio-mode) (golden-ratio-mode -1))
(select-window (lv-window))
(when golden-ratio (golden-ratio-mode))
(unless (string= (buffer-string) str)
(delete-region (point-min) (point-max))
(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))
(select-window ori)))