diff options
| -rw-r--r-- | lisp/init-framewin.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/init-framewin.el b/lisp/init-framewin.el index ebe818b..47ff1e1 100644 --- a/lisp/init-framewin.el +++ b/lisp/init-framewin.el @@ -1,9 +1,10 @@ ;;; Frames and windows -(defadvice clone-indirect-buffer-other-window - (after clone-indirect-and-widen activate) - "Widen after cloning an indirect buffer." - (widen)) +(defun km/clone-indirect-buffer-other-window-and-widen () + "Clone as indirect buffer and then widen." + (interactive) + (call-interactively #'clone-indirect-buffer-other-window) + (widen)) ;; From prelude (defun km/swap-windows () @@ -46,4 +47,6 @@ Assumes that the window is only split into two." (define-key km/window-map "l" 'km/switch-window-split) (define-key km/window-map "s" 'km/swap-windows) +(define-key ctl-x-4-map "c" 'km/clone-indirect-buffer-other-window-and-widen) + (provide 'init-framewin) |