160 |
(cond ((and (eq (window-buffer win) buf)) |
(cond ((and (eq (window-buffer win) buf)) |
161 |
(select-window win)) |
(select-window win)) |
162 |
(one-window |
(one-window |
|
(goto-char (window-start win)) |
|
163 |
(pop-to-buffer buffer) |
(pop-to-buffer buffer) |
164 |
(setq win (selected-window)) |
(setq win (selected-window)) |
165 |
(enlarge-window (- target-height (window-height win)))) |
(enlarge-window (- target-height (window-height win)))) |
174 |
|
|
175 |
(provide 'electric) |
(provide 'electric) |
176 |
|
|
177 |
|
;;; arch-tag: dae045eb-dc2d-4fb7-9f27-9cc2ce277be8 |
178 |
;;; electric.el ends here |
;;; electric.el ends here |