From 2d197ffbe2029b479802528eeaec714df4c8a8f6 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 30 Oct 2011 09:56:03 +0800 Subject: Rename split-window-{above-each-other|split-window-side-by-side} to split-window-below and split-window-right. * lisp/window.el (split-window-below, split-window-right): Rename from split-window-above-each-other and split-window-side-by-side respectively. All callers changed. (split-window-sensibly, split-window-sensibly): Use them. (split-window-keep-point): Doc fix. * lisp/isearch.el: Add isearch-scroll property to split-window-below and split-window-right. * lisp/follow.el (follow-mode): * lisp/vc/pcvs-util.el (cvs-pop-to-buffer-same-frame): * lisp/progmodes/ada-xref.el (ada-gdb-application): * lisp/emulation/vip.el (vip-buffer-in-two-windows): * lisp/image-dired.el (image-dired-dired-with-window-configuration): * lisp/dired-x.el (dired-do-find-marked-files): * lisp/dired.el (dired-pop-to-buffer): * lisp/bs.el (bs--show-with-configuration): * lisp/vc/emerge.el (emerge-setup-windows): * lisp/textmodes/two-column.el (2C-two-columns): * lisp/textmodes/reftex-toc.el (reftex-toc): * lisp/progmodes/gdb-mi.el (gdb-setup-windows): * lisp/progmodes/fortran.el (fortran-window-create): * lisp/net/newst-treeview.el (newsticker--treeview-window-init): * lisp/emulation/ws-mode.el (wordstar-C-o-map, wordstar-mode): * lisp/emulation/tpu-edt.el (tpu-gold-map): * lisp/emulation/crisp.el (crisp-mode-map): * lisp/calendar/calendar.el (calendar-basic-setup): Callers changed. --- lisp/emulation/crisp.el | 4 ++-- lisp/emulation/edt.el | 2 +- lisp/emulation/tpu-edt.el | 4 ++-- lisp/emulation/vip.el | 2 +- lisp/emulation/ws-mode.el | 8 ++++---- 5 files changed, 10 insertions(+), 10 deletions(-) (limited to 'lisp/emulation') diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el index 567a57949b3..010e32857c5 100644 --- a/lisp/emulation/crisp.el +++ b/lisp/emulation/crisp.el @@ -71,8 +71,8 @@ (define-key map [(f2) (left)] 'shrink-window-horizontally) (define-key map [(f2) (right)] 'enlarge-window-horizontally) (define-key map [(f2) (up)] 'shrink-window) - (define-key map [(f3) (down)] 'split-window-vertically) - (define-key map [(f3) (right)] 'split-window-horizontally) + (define-key map [(f3) (down)] 'split-window-below) + (define-key map [(f3) (right)] 'split-window-right) (define-key map [(f4)] 'delete-window) (define-key map [(control f4)] 'delete-other-windows) diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index 68550cc30e2..7ed0255d987 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -2362,7 +2362,7 @@ Argument GOLD-BINDING is the Emacs function to be bound to GOLD ." (edt-bind-gold-key-default "\C-h" 'help-for-help); Just in case. (edt-bind-gold-key-default [f1] 'help-for-help) (edt-bind-gold-key-default [help] 'help-for-help) - (edt-bind-gold-key-default "\C-\\" 'split-window-vertically) + (edt-bind-gold-key-default "\C-\\" 'split-window-below) ;; GOLD bindings for regular keys. (edt-bind-gold-key-default "a" 'edt-key-not-assigned) diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el index b4bf47a6504..e2ad5d81d27 100644 --- a/lisp/emulation/tpu-edt.el +++ b/lisp/emulation/tpu-edt.el @@ -459,7 +459,7 @@ Otherwise, use `spell-region'." ;; (define-key map "\\" nil) ; \ (define-key map "]" 'blink-matching-open) ; ] (define-key map "^" 'tpu-add-at-bol) ; ^ - (define-key map "_" 'split-window-vertically) ; - + (define-key map "_" 'split-window-below) ; - (define-key map "`" 'what-line) ; ` (define-key map "a" 'tpu-toggle-newline-and-indent) ; a (define-key map "b" 'tpu-next-buffer) ; b @@ -487,7 +487,7 @@ Otherwise, use `spell-region'." (define-key map "y" 'copy-region-as-kill) ; y (define-key map "z" 'suspend-emacs) ; z ;; (define-key map "{" nil) ; { - (define-key map "|" 'split-window-horizontally) ; | + (define-key map "|" 'split-window-right) ; | ;; (define-key map "}" nil) ; } (define-key map "~" 'exchange-point-and-mark) ; ~ (define-key map "\177" 'delete-window) ;