mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

log-edit-show-files: Respect display-buffer-alist

Browse source 
* lisp/vc/log-edit.el (log-edit-show-files): Consolidate the
call to cvs-pop-to-buffer-same-frame,
shrink-window-if-larger-than-buffer, and set-window-dedicated-p
into a single call to display-buffer.
This commit is contained in:
Kristoffer Balintona 2025-11-29 00:57:18 -06:00 • committed by Sean Whitton
parent fd3b74ca08
commit 1c3d37a673
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/vc/log-edit.el
View file

@ -915,11 +915,12 @@ visible when the *vc-log* buffer pops up."
(cvs-insert-strings files)
(special-mode)
(goto-char (point-min))
(save-selected-window
(cvs-pop-to-buffer-same-frame buf)
(shrink-window-if-larger-than-buffer)
(set-window-dedicated-p (selected-window) t)
(selected-window)))))
(display-buffer buf '((display-buffer-below-selected)
(dedicated . t)
(window-height . shrink-window-if-larger-than-buffer)
(inhibit-same-window . t)
(reusable-frames . nil)
(inhibit-switch-frame . t))))))
(defun log-edit-empty-buffer-p ()
"Return non-nil if the buffer is \"empty\"."