Emacs: Add toggle-window-dedicated command

Tells Emacs not to replace the buffer in a window.

1 files changed, 11 insertions, 0 deletions

diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index 565def90..f403d1ee 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)))