From c806ee0eb898215359fdc80010f779b3582248d1 Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Wed, 10 Jan 2024 18:19:33 +0300 Subject: feat(tazjin/emacs): add M-x-always-same-window Following a discussion on Telegram about window management ... might come in useful! Change-Id: If50741e4281c658bccc55e2f591ef945ef4b3b5d Reviewed-on: https://cl.tvl.fyi/c/depot/+/10592 Autosubmit: tazjin Tested-by: BuildkiteCI Reviewed-by: tazjin --- users/tazjin/emacs/config/functions.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'users/tazjin') diff --git a/users/tazjin/emacs/config/functions.el b/users/tazjin/emacs/config/functions.el index d91627a88247..68a384d20f7a 100644 --- a/users/tazjin/emacs/config/functions.el +++ b/users/tazjin/emacs/config/functions.el @@ -341,4 +341,12 @@ installed (and visible) XDG apps, and let users launch them." (interactive "aFunction symbol: ") (advice-mapc (lambda (advice _props) (advice-remove sym advice)) sym)) +(defun M-x-always-same-window () + "Run `execute-extended-command', but ensure that whatever it does +always opens in the same window in which the command was invoked." + (interactive) + (let ((display-buffer-overriding-action + '((display-buffer-same-window) . ((inhibit-same-window . nil))))) + (call-interactively #'execute-extended-command))) + (provide 'functions) -- cgit 1.4.1