Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

In 'dframe-frame-mode' avoid 'switch-to-buffer' (Bug#37840)

Browse source 
* lisp/dframe.el (dframe-frame-mode): Use 'set-window-buffer'
instead of 'switch-to-buffer’ to avoid that
'switch-to-buffer-obey-display-actions' butts in (Bug#37840).
This commit is contained in:
Martin Rudalics 2019-11-15 09:43:02 +01:00
parent 3db1de0452
commit fb3dea96b7
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/dframe.el
View file

@ -309,8 +309,10 @@ CREATE-HOOK is a hook to run after creating a frame."
(make-frame-visible (symbol-value frame-var))
(select-frame (symbol-value frame-var))
(set-window-dedicated-p (selected-window) nil)
(if (not (eq (current-buffer) (symbol-value buffer-var)))
(switch-to-buffer (symbol-value buffer-var)))
(unless (eq (current-buffer) (symbol-value buffer-var))
;; To avoid that 'switch-to-buffer-obey-display-actions'
;; butts in, use plain 'set-window-buffer' (Bug#37840).
(set-window-buffer nil (symbol-value buffer-var)))
(set-window-dedicated-p (selected-window) t)
(raise-frame (symbol-value frame-var))
)
@ -346,7 +348,9 @@ CREATE-HOOK is a hook to run after creating a frame."
;; Put the buffer into the frame
(save-excursion
(select-frame (symbol-value frame-var))
(switch-to-buffer (symbol-value buffer-var))
;; To avoid that 'switch-to-buffer-obey-display-actions'
;; butts in, use plain 'set-window-buffer' (Bug#37840).
(set-window-buffer nil (symbol-value buffer-var))
(set-window-dedicated-p (selected-window) t))
;; Run hooks (like reposition)
(run-hooks create-hook)