X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/ed7f1a6c5caaf4159125c08db5d18c5471fdd032..0d373f73bcaf14863b186b74d6e80a5209e2720c:/lisp/emulation/tpu-edt.el

diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index b4bf47a650..e2ad5d81d2 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)		; <X]