;; (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
(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]
(defun tpu-make-file-buffer-list (buffer-list)
"Return names from BUFFER-LIST excluding those beginning with a space or star."
- (delq nil (mapcar '(lambda (b)
- (if (or (= (aref (buffer-name b) 0) ? )
- (= (aref (buffer-name b) 0) ?*)) nil b))
+ (delq nil (mapcar (lambda (b)
+ (if (or (= (aref (buffer-name b) 0) ?\s)
+ (= (aref (buffer-name b) 0) ?*)) nil b))
buffer-list)))
(defun tpu-next-window nil