diff options
| -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))) |