diff options
author | Alan Pearce | 2014-05-22 10:42:12 +0100 |
---|---|---|
committer | Alan Pearce | 2014-05-22 10:42:12 +0100 |
commit | 0704610461bf24463b4f6fcea268b60cb3236ef1 (patch) | |
tree | 79573ab9edaa12f262fa6a92eb1bca76935871d6 | |
parent | 8b2c247dba335dbf63a9e386d453e95d2b568e5a (diff) | |
download | dotfiles-0704610461bf24463b4f6fcea268b60cb3236ef1.tar.lz dotfiles-0704610461bf24463b4f6fcea268b60cb3236ef1.tar.zst dotfiles-0704610461bf24463b4f6fcea268b60cb3236ef1.zip |
Emacs: Add toggle-window-dedicated command
Tells Emacs not to replace the buffer in a window.
-rw-r--r-- | tag-emacs/emacs.d/init.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el index 565def9..f403d1e 100644 --- a/tag-emacs/emacs.d/init.el +++ b/tag-emacs/emacs.d/init.el @@ -994,6 +994,17 @@ (tooltip-mode -1) (tool-bar-mode -1)) +(defun toggle-window-dedicated () + "Toggle whether the current active window is dedicated or not" + (interactive) + (message + (if (let (window (get-buffer-window (current-buffer))) + (set-window-dedicated-p window + (not (window-dedicated-p window)))) + "Window '%s' is dedicated" + "Window '%s' is normal") + (current-buffer))) + (req-package popwin :config (progn (popwin-mode 1))) |