mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -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) (cvs-insert-strings files)
(special-mode) (special-mode)
(goto-char (point-min)) (goto-char (point-min))
(save-selected-window (display-buffer buf '((display-buffer-below-selected)
(cvs-pop-to-buffer-same-frame buf) (dedicated . t)
(shrink-window-if-larger-than-buffer) (window-height . shrink-window-if-larger-than-buffer)
(set-window-dedicated-p (selected-window) t) (inhibit-same-window . t)
(selected-window))))) (reusable-frames . nil)
(inhibit-switch-frame . t))))))
(defun log-edit-empty-buffer-p () (defun log-edit-empty-buffer-p ()
"Return non-nil if the buffer is \"empty\"." "Return non-nil if the buffer is \"empty\"."