From 804e7cbad0715d4b1f7a352ced16350e0d7da2d1 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Mon, 26 Jan 2015 01:09:01 -0500 Subject: Don't advise clone-indirect-buffer-other-window --- lisp/init-framewin.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'lisp/init-framewin.el') 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) -- cgit v1.2.3