From f8c73c8e22ea123d8526e8533115f8ede192fc0c Mon Sep 17 00:00:00 2001 From: Shawn Betts Date: Tue, 4 Dec 2007 03:06:20 -0800 Subject: [PATCH] fix split-window command --- src/lisp/simple.lisp | 8 ++++---- src/window.lisp | 4 ++-- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/lisp/simple.lisp b/src/lisp/simple.lisp index 171ade6..9d34504 100644 --- a/src/lisp/simple.lisp +++ b/src/lisp/simple.lisp @@ -657,17 +657,17 @@ of the accessible part of the buffer." (set-mark-command) (goto-char (point-min))) -(defcommand split-window-vertically () - (split-window (selected-window))) +(defcommand split-window () + (split-window-internal (selected-window))) (defcommand split-window-horizontally () - (split-window (selected-window) nil t)) + (split-window-internal (selected-window) nil t)) (defcommand switch-to-buffer-other-window ((buffer) (:buffer "Switch to buffer in other window: " (buffer-name (other-buffer (current-buffer))))) (let* ((cw (selected-window)) (w (or (next-window cw) - (split-window cw)))) + (split-window-internal cw)))) (select-window w) (switch-to-buffer buffer))) diff --git a/src/window.lisp b/src/window.lisp index 627cd08..7987bea 100644 --- a/src/window.lisp +++ b/src/window.lisp @@ -750,7 +750,7 @@ do not put this buffer at the front of the list of recently selected ones. window new))) -(defun split-window (&optional (window (selected-window)) size horflag) +(defun split-window-internal (&optional (window (selected-window)) size horflag) (when (typep window 'minibuffer-window) (error "Attempt to split minibuffer window")) (when (null size) @@ -890,7 +890,7 @@ argument NOT-THIS-WINDOW is non-nil (interactively, with prefix arg). (eq (window-buffer w) buffer))) (frame-window-tree (selected-frame))) (next-window cw) - (split-window cw)))) + (split-window-internal cw)))) (set-window-buffer w buffer) (window-restore-point w) w)) -- 2.11.4.GIT