Emacs: refactor toggle-window-dedicated
Alan Pearce alan@alanpearce.co.uk
Mon, 14 Jul 2014 20:14:35 +0100
1 files changed, 5 insertions(+), 4 deletions(-)
jump to
M tag-emacs/emacs.d/init.el → tag-emacs/emacs.d/init.el
@@ -1159,12 +1159,13 @@ (defun toggle-window-dedicated () "Toggle whether the current active window is dedicated or not" (interactive) (message - (if (let (window (get-buffer-window (current-buffer))) + "Window '%s' is %s" + (current-buffer) + (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))) + "dedicated" + "normal"))) (req-package popwin :if (and (>= emacs-major-version 24)