summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-framewin.el11
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)