summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-01-26 01:09:01 -0500
committerKyle Meyer <kyle@kyleam.com>2015-01-27 01:01:05 -0500
commit804e7cbad0715d4b1f7a352ced16350e0d7da2d1 (patch)
tree386110d2911bb9ebb0b2fad160b0283c6a62426b
parentbab1cea4888f87ed3e96d6dac935a42e21683679 (diff)
downloademacs.d-804e7cbad0715d4b1f7a352ced16350e0d7da2d1.tar.gz
Don't advise clone-indirect-buffer-other-window
-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)