;;; -*- Emacs-Lisp -*- ;;; vz-keys.el ;;; Copyright (C) 1994, 1995, 1996 ;;; 古江 秀之 (PXB04553@niftyserve.or.jp) ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either versions 2, or (at your option) ;;; any later version. ;; beginning of vz-keys.el (defvar vz-mode-map (make-keymap) "vz-modeにおけるキーマップ") (defvar vz-C-k-map (make-keymap) "^K押下時のキーマップ") (defvar vz-C-q-map (make-keymap) "^Q押下時のキーマップ") (defvar vz-esc-map (make-sparse-keymap) "[ESC]押下時のキーマップ(sparse)") (defvar vz-minibuffer-map (copy-keymap minibuffer-local-map) "vz-modeミニバッファでのキーマップ") ;added by FURUE Hideyuki, 95.8.13 (defvar vz-minibuffer-completion-map nil "vz-mode補完付ミニバッファでのキーマップ") ;added by FURUE Hideyuki, 95.8.13 ;; ;; special keys ;; (define-key vz-mode-map '(f1) 'vz-file-menu) (define-key vz-mode-map '(f2) 'vz-other-window) (define-key vz-mode-map '(f3) 'vz-buffer-menu) (define-key vz-mode-map '(f4) 'vz-split-window) (define-key vz-mode-map '(f5) 'vz-get-search-string) (define-key vz-mode-map '(f6) 'vz-set-search-string) (define-key vz-mode-map '(f7) 'vz-query-replace) (define-key vz-mode-map '(f8) 'vz-cut) (define-key vz-mode-map '(f9) 'vz-pop-kill-ring) (define-key vz-mode-map '(f10) 'vz-block-mode) (define-key vz-mode-map '(shift f1) 'vz-mode-menu) (define-key vz-mode-map '(shift f2) 'vz-sub-menu) (define-key vz-mode-map '(shift f3) 'vz-compare-windows) (define-key vz-mode-map '(shift f4) 'vz-change-window-height) (define-key vz-mode-map '(shift f5) 'vz-insert-search-string) ;;(define-key vz-mode-map '(shift f6) 'vz-multi) (define-key vz-mode-map '(shift f7) 'vz-select-insert-string) (define-key vz-mode-map '(shift f8) 'vz-copy) (define-key vz-mode-map '(shift f9) 'vz-paste) (define-key vz-mode-map '(shift f10) 'vz-find-tag) ;TAG (define-key vz-mode-map '(prior) 'vz-scroll-down) (define-key vz-mode-map '(next) 'vz-scroll-up) (define-key vz-mode-map '(left) 'backward-char) (define-key vz-mode-map '(right) 'forward-char) (define-key vz-mode-map '(up) 'vz-previous-line) (define-key vz-mode-map '(down) 'vz-next-line) (define-key vz-mode-map '(backspace) 'vz-delete-backward-char) (define-key vz-mode-map '(delete) 'vz-delete-char) ;;(define-key vz-mode-map '(help) 'vz-help) (define-key vz-mode-map '(insert) 'overwrite-mode) (define-key vz-mode-map '(return) 'vz-newline-and-indent) ;;(define-key vz-mode-map '(tab) 'self-insert-command) (define-key vz-mode-map '(shift left) 'vz-backward-word) (define-key vz-mode-map '(shift right) 'vz-forward-word) (define-key vz-mode-map '(control left) 'beginning-of-line) (define-key vz-mode-map '(control right) 'end-of-line) (define-key vz-mode-map '(shift backspace) 'vz-backward-kill-word) (define-key vz-mode-map '(shift delete) 'vz-kill-word) (define-key vz-mode-map '(control backspace) 'vz-kill-bol) (define-key vz-mode-map '(control delete) 'vz-kill-eol) ;;(define-key vz-mode-map '(control tab) 'vz-select-abbrev) ;(define-key vz-mode-map '(shift escape) 'vz-switch-to-shell-command-buffer) (define-key vz-minibuffer-map '(shift f1) 'vz-search-option-menu) (define-key vz-minibuffer-map '(shift f5) 'vz-insert-search-string) (define-key vz-minibuffer-map '(return) 'exit-minibuffer) (define-key vz-minibuffer-map '(right) 'forward-char) (define-key vz-minibuffer-map '(left) 'backward-char) (define-key vz-minibuffer-map '(up) 'previous-complete-history-element) (define-key vz-minibuffer-map '(down) 'next-complete-history-element) (define-key vz-minibuffer-map '(backspace) 'vz-delete-backward-char) (define-key vz-minibuffer-map '(delete) 'vz-delete-char) ;;(define-key vz-minibuffer-map '(help) 'vz-help) (define-key vz-minibuffer-map '(insert) 'overwrite-mode) (define-key vz-minibuffer-map '(shift left) 'vz-backward-word) (define-key vz-minibuffer-map '(shift right) 'vz-forward-word) (define-key vz-minibuffer-map '(control left) 'beginning-of-line) (define-key vz-minibuffer-map '(control right) 'end-of-line) (define-key vz-minibuffer-map '(shift backspace) 'vz-backward-kill-word) (define-key vz-minibuffer-map '(shift delete) 'vz-kill-word) (define-key vz-minibuffer-map '(control backspace) 'vz-kill-bol) (define-key vz-minibuffer-map '(control delete) 'vz-kill-eol) (cond ((and (fboundp 'dos-machine-type) (eq (dos-machine-type t) 'ibmpc)) (define-key vz-mode-map '(home) 'vz-left-of-screen) (define-key vz-mode-map '(end) 'vz-right-of-screen) (define-key vz-mode-map '(shift prior) 'vz-scroll-down-line) (define-key vz-mode-map '(shift next) 'vz-scroll-up-line) (define-key vz-mode-map '(control prior) 'vz-beginning-of-buffer) (define-key vz-mode-map '(control next) 'vz-end-of-buffer) (define-key vz-mode-map '(shift up) 'vz-smooth-scroll-down) (define-key vz-mode-map '(shift down) 'vz-smooth-scroll-up) (define-key vz-mode-map '(control insert) 'vz-undo) (define-key vz-mode-map '(shift end) 'vz-goto-last-cursorp) (define-key vz-mode-map '(control home) 'vz-top-of-screen) (define-key vz-mode-map '(control end) 'vz-bottom-of-screen) (define-key vz-mode-map '(meta delete) 'vz-cut) (define-key vz-mode-map '(meta insert) 'vz-pop-kill-ring) (define-key vz-mode-map '(meta shift delete) 'vz-copy) (define-key vz-mode-map '(meta shift insert) 'vz-paste) ) (t ;pc98 (define-key vz-mode-map '(shift insert) 'vz-toggle-search-flag) (define-key vz-mode-map '(shift prior) 'vz-scroll-down-line) (define-key vz-mode-map '(shift next) 'vz-scroll-up-line) (define-key vz-mode-map '(control prior) 'vz-beginning-of-buffer) (define-key vz-mode-map '(control next) 'vz-end-of-buffer) (define-key vz-mode-map '(shift up) 'vz-scroll-down) (define-key vz-mode-map '(shift down) 'vz-scroll-up) (define-key vz-mode-map '(control up) 'vz-top-of-screen) (define-key vz-mode-map '(control down) 'vz-bottom-of-screen) (define-key vz-mode-map '(meta left) 'vz-left-of-screen) (define-key vz-mode-map '(meta right) 'vz-right-of-screen) (define-key vz-mode-map '(shift return) 'open-line) (define-key vz-mode-map '(shift home) 'vz-goto-matching-paren) ;;(define-key vz-mode-map '(home) 'vz-change-view-point) )) ;; ;; normal keys ;; (define-key vz-mode-map "\C-q" vz-C-q-map) (define-key vz-mode-map "\C-k" vz-C-k-map) (define-key vz-mode-map "\C-o" 'undefined) ;;(define-key vz-mode-map "\e" vz-esc-map) (define-key vz-mode-map '(escape) vz-esc-map) ;;(define-key vz-mode-map '(escape) 'vz-repeat-last-command) (define-key vz-mode-map "\C-_" 'vz-start-kbd-macro) ;;(define-key vz-mode-map '(escape) 'keyboard-quit) (define-key vz-mode-map "\C-m" 'vz-newline-and-indent) (define-key vz-mode-map "\C-e" 'vz-previous-line) (define-key vz-mode-map "\C-x" 'vz-next-line) (define-key vz-mode-map "\C-s" 'backward-char) ;Emacs (define-key vz-mode-map "\C-d" 'forward-char) ;Emacs (define-key vz-mode-map "\C-a" 'vz-backward-word) (define-key vz-mode-map "\C-f" 'vz-forward-word) (define-key vz-C-q-map "s" 'beginning-of-line) ;Emacs (define-key vz-C-q-map "\C-s" 'beginning-of-line) (define-key vz-C-q-map "d" 'end-of-line) ;Emacs (define-key vz-C-q-map "\C-d" 'end-of-line) (define-key vz-mode-map "\C-v" 'overwrite-mode) ;Emacs (define-key vz-mode-map "\C-h" 'vz-delete-backward-char) (define-key vz-mode-map "\C-g" 'vz-delete-char) (define-key vz-C-q-map "h" 'vz-backward-kill-word) (define-key vz-C-q-map "\C-h" 'vz-backward-kill-word) (define-key vz-mode-map "\C-t" 'vz-kill-word) (define-key vz-C-q-map "t" 'vz-kill-bol) (define-key vz-C-q-map "\C-t" 'vz-kill-bol) (define-key vz-C-q-map "y" 'vz-kill-eol) (define-key vz-C-q-map "\C-y" 'vz-kill-eol) (define-key vz-mode-map "\C-u" 'vz-undo) (define-key vz-mode-map "\C-i" 'self-insert-command) ;Emacs (define-key vz-mode-map "\C-p" 'quoted-insert) (define-key vz-C-q-map "u" 'vz-toggle-case-word) (define-key vz-C-q-map "\C-u" 'vz-toggle-case-word) (define-key vz-C-q-map "i" 'vz-insert-search-string) (define-key vz-C-q-map "\C-i" 'vz-insert-search-string) (define-key vz-C-q-map "n" 'vz-insert-buffer-file-name) (define-key vz-C-q-map "\C-n" 'vz-insert-buffer-file-name) (define-key vz-mode-map "\C-@" 'vz-toggle-search-flag) (define-key vz-mode-map "\C-w" 'vz-scroll-down-line) ;;(define-key vz-mode-map "\C-w" 'vz-scroll-down-2-lines) (define-key vz-mode-map "\C-z" 'vz-scroll-up-line) ;;(define-key vz-mode-map "\C-z" 'vz-scroll-up-2-lines) (define-key vz-mode-map "\C-r" 'vz-scroll-down) (define-key vz-mode-map "\C-c" 'vz-scroll-up) (define-key vz-C-q-map "w" 'vz-smooth-scroll-down) (define-key vz-C-q-map "\C-w" 'vz-smooth-scroll-down) (define-key vz-C-q-map "z" 'vz-smooth-scroll-up) (define-key vz-C-q-map "\C-z" 'vz-smooth-scroll-up) (define-key vz-C-q-map "e" 'vz-top-of-screen) (define-key vz-C-q-map "\C-e" 'vz-top-of-screen) (define-key vz-C-q-map "x" 'vz-bottom-of-screen) (define-key vz-C-q-map "\C-x" 'vz-bottom-of-screen) (define-key vz-C-q-map "r" 'vz-beginning-of-buffer) (define-key vz-C-q-map "\C-r" 'vz-beginning-of-buffer) (define-key vz-C-q-map "c" 'vz-end-of-buffer) (define-key vz-C-q-map "\C-c" 'vz-end-of-buffer) (define-key vz-C-q-map "p" 'vz-goto-last-cursorp) (define-key vz-C-q-map "\C-p" 'vz-goto-last-cursorp) (define-key vz-C-q-map "m" 'vz-set-mark) (define-key vz-C-q-map "\C-m" 'vz-set-mark) (define-key vz-C-q-map "j" 'vz-goto-line) (define-key vz-mode-map "\C-b" 'vz-block-mode) (define-key vz-mode-map "\C-y" 'vz-cut) (define-key vz-mode-map "\C-j" 'vz-pop-kill-ring) (define-key vz-C-k-map "k" 'vz-copy) (define-key vz-C-k-map "\C-k" 'vz-copy) (define-key vz-C-k-map "c" 'vz-paste) (define-key vz-C-k-map "\C-c" 'vz-paste) (define-key vz-C-k-map "y" 'vz-erase-kill-ring) (define-key vz-C-k-map "\C-y" 'vz-erase-kill-ring) (define-key vz-C-q-map "b" 'vz-goto-beginning-of-block) (define-key vz-C-q-map "\C-b" 'vz-goto-beginning-of-block) (define-key vz-mode-map "\C-n" 'open-line) ;Emacs ;;(define-key vz-C-q-map "l" 'vz-cancel-edit-line) ;* ;;(define-key vz-C-q-map "\C-l" 'vz-cancel-edit-line) (define-key vz-C-q-map "f" 'vz-set-search-string) (define-key vz-C-q-map "\C-f" 'vz-set-search-string) (define-key vz-C-q-map "a" 'vz-query-replace) (define-key vz-C-q-map "\C-a" 'vz-query-replace) (define-key vz-C-q-map "o" 'vz-repeat-last-replace) (define-key vz-C-q-map "\C-o" 'vz-repeat-last-replace) (define-key vz-C-q-map "k" 'vz-goto-matching-paren) (define-key vz-C-q-map "\C-k" 'vz-goto-matching-paren) (define-key vz-mode-map "\C-l" 'vz-get-search-string) ;(define-key vz-C-k-map "\C-g" 'vz-get-tag-info) ;TAG (define-key vz-C-k-map "a" 'vz-select-insert-string) (define-key vz-C-k-map "\C-a" 'vz-select-insert-string) (define-key vz-C-k-map "w" 'vz-other-window) (define-key vz-C-k-map "\C-w" 'vz-other-window) (define-key vz-C-k-map "t" 'vz-buffer-menu) (define-key vz-C-k-map "\C-t" 'vz-buffer-menu) (define-key vz-C-k-map "s" 'vz-split-window) (define-key vz-C-k-map "\C-s" 'vz-split-window) (define-key vz-C-k-map "f" 'vz-change-window-size) (define-key vz-C-k-map "\C-f" 'vz-change-window-size) ;;(define-key vz-C-k-map "l" 'vz-change-display-lines) ;* ;;(define-key vz-C-k-map "\C-l" 'vz-change-display-lines) (define-key vz-C-k-map "r" 'toggle-read-only) ;*Emacs (define-key vz-C-k-map "\C-r" 'toggle-read-only) (define-key vz-C-k-map "h" 'vz-change-indent) (define-key vz-C-k-map "\C-h" 'vz-change-indent) (define-key vz-C-k-map "x" 'vz-compare-windows) (define-key vz-C-k-map "\C-x" 'vz-compare-windows) (define-key vz-esc-map "o" 'vz-open-file) (define-key vz-esc-map "r" 'vz-open-file-read-only) (define-key vz-esc-map "n" 'vz-create-new-file) (define-key vz-esc-map "c" 'vz-close-file) (define-key vz-esc-map "l" 'vz-open-alternate-file) (define-key vz-esc-map "s" 'vz-save-file) (define-key vz-esc-map "a" 'vz-append-to-file) (define-key vz-esc-map "q" 'vz-quit) (define-key vz-esc-map "e" 'vz-shell-command) ;;(define-key vz-C-k-map "^" 'vz-recustomize) ;* ;;(define-key vz-C-k-map "\C-^" 'vz-recustomize) ;* (define-key vz-C-k-map "_" 'vz-insert-kbd-macro) (define-key vz-C-k-map "\C-_" 'vz-insert-kbd-macro) (define-key vz-esc-map "p" 'vz-write-file) ;;(define-key vz-esc-map "w" 'vz-save-profile) ;* ;;(define-key vz-C-k-map "t" 'vz-set-title-string) ;;(define-key vz-C-k-map "\C-t" 'vz-set-title-string) (define-key vz-esc-map "i" 'vz-insert-file) (define-key vz-esc-map "u" 'vz-revert-file) ;;;(define-key vz-esc-map "x" 'vz-close-all-files) ; DISABLED (define-key vz-esc-map "d" 'vz-duplicate-window) (define-key vz-esc-map "@" 'eval-expression) ;*Emacs (define-key vz-C-q-map "[" 'vz-left-of-screen) (define-key vz-C-q-map "\C-[" 'vz-left-of-screen) (define-key vz-C-q-map "]" 'vz-right-of-screen) (define-key vz-C-q-map "\C-]" 'vz-right-of-screen) (define-key vz-C-k-map "i" 'vz-toggle-tab-width) (define-key vz-C-k-map "\C-i" 'vz-toggle-tab-width) (define-key vz-C-q-map "0" 'vz-goto-mark) (define-key vz-C-k-map "d" 'vz-copy-current-line) (define-key vz-C-k-map "\C-d" 'vz-copy-current-line) (define-key vz-C-k-map "u" 'vz-undo-paste) (define-key vz-C-k-map "\C-u" 'vz-undo-paste) (define-key vz-C-k-map "]" 'vz-zenkaku-paren) (define-key vz-C-k-map "\C-]" 'vz-zenkaku-paren) (define-key vz-C-q-map "v" 'toggle-read-only) (define-key vz-C-q-map "\C-v" 'toggle-read-only) ;;(define-key vz-C-k-map "o" 'vz-init-options) ;* ;;(define-key vz-C-k-map "\C-o" 'vz-init-options) ;;(define-key vz-mode-map "\C-]" 'vz-help) (define-key vz-C-k-map "z" 'vz-toggle-zenhan) (define-key vz-C-k-map "\C-z" 'vz-toggle-zenhan) ;;(define-key vz-C-k-map "b" 'vz-rectangle-mode) ;* ;;(define-key vz-C-k-map "\C-b" 'vz-rectangle-mode) ;;(define-key vz-C-k-map "p" 'vz-invoke-prt) ;* ;;(define-key vz-C-k-map "\C-p" 'vz-invoke-prt) (define-key vz-mode-map "\C-^" 'vz-end-kbd-macro) (define-key vz-C-q-map "1" 'vz-goto-mark-1) (define-key vz-C-q-map "2" 'vz-goto-mark-2) (define-key vz-C-q-map "3" 'vz-goto-mark-3) (define-key vz-C-q-map "4" 'vz-goto-mark-4) (define-key vz-C-k-map "1" 'vz-set-mark-1) (define-key vz-C-k-map "2" 'vz-set-mark-2) (define-key vz-C-k-map "3" 'vz-set-mark-3) (define-key vz-C-k-map "4" 'vz-set-mark-4) (define-key vz-C-q-map " " ()) (define-key vz-C-q-map "\C-@" ()) (define-key vz-C-k-map " " ()) (define-key vz-C-k-map "\C-@" ()) (define-key vz-mode-map "\M-w" 'vz-other-window) (define-key vz-mode-map "\M-t" 'vz-buffer-menu) (define-key vz-mode-map "\M-y" 'vz-split-window) (define-key vz-mode-map "\M-o" 'vz-open-file) (define-key vz-mode-map "\M-r" 'vz-open-file-read-only) (define-key vz-mode-map "\M-n" 'vz-create-new-file) (define-key vz-mode-map "\M-c" 'vz-close-file) (define-key vz-mode-map "\M-l" 'vz-open-alternate-file) (define-key vz-mode-map "\M-s" 'vz-save-file) (define-key vz-mode-map "\M-a" 'vz-append-to-file) (define-key vz-mode-map "\M-q" 'vz-quit) (define-key vz-mode-map "\M-e" 'vz-shell-command) (define-key vz-mode-map "\M-p" 'vz-write-file) (define-key vz-mode-map "\M-i" 'vz-insert-file) (define-key vz-mode-map "\M-u" 'vz-revert-file) (define-key vz-mode-map "\M-d" 'vz-duplicate-window) ;;(define-key vz-minibuffer-map "\C-j" 'exit-minibuffer) (define-key vz-minibuffer-map "\C-m" 'exit-minibuffer) ;(define-key vz-minibuffer-map "\e" 'abort-recursive-edit) (define-key vz-minibuffer-map '(escape) 'abort-recursive-edit) (define-key vz-minibuffer-map "\C-e" 'previous-complete-history-element) (define-key vz-minibuffer-map "\C-x" 'next-complete-history-element) (define-key vz-minibuffer-map "\C-d" 'forward-char) (define-key vz-minibuffer-map "\C-s" 'backward-char) (define-key vz-minibuffer-map "\C-f" 'vz-forward-word) (define-key vz-minibuffer-map "\C-a" 'vz-backward-word) (define-key vz-minibuffer-map "\C-v" 'overwrite-mode) (define-key vz-minibuffer-map "\C-h" 'vz-delete-backward-char) ;;(define-key vz-minibuffer-map "\C-g" 'vz-delete-char) ;喰われる？ (define-key vz-minibuffer-map "\C-qd" 'end-of-line) (define-key vz-minibuffer-map "\C-q\C-d" 'end-of-line) (define-key vz-minibuffer-map "\C-qs" 'begining-of-line) (define-key vz-minibuffer-map "\C-q\C-s" 'begining-of-line) (define-key vz-minibuffer-map "\C-qh" 'vz-backward-kill-word) (define-key vz-minibuffer-map "\C-q\C-h" 'vz-backward-kill-word) (define-key vz-minibuffer-map "\C-t" 'vz-kill-word) (define-key vz-minibuffer-map "\C-qy" 'vz-kill-eol) (define-key vz-minibuffer-map "\C-q\C-y" 'vz-kill-eol) (define-key vz-minibuffer-map "\C-qt" 'vz-kill-bol) (define-key vz-minibuffer-map "\C-q\C-t" 'vz-kill-bol) (define-key vz-minibuffer-map "\C-u" 'vz-undo) (define-key vz-minibuffer-map "\C-p" 'quoted-insert) (define-key vz-minibuffer-map "\C-qu" 'vz-toggle-case-word) (define-key vz-minibuffer-map "\C-q\C-u" 'vz-toggle-case-word) (define-key vz-minibuffer-map "\C-qi" 'vz-insert-search-string) (define-key vz-minibuffer-map "\C-q\C-i" 'vz-insert-search-string) (define-key vz-minibuffer-map "\C-qn" 'vz-insert-buffer-file-name) (define-key vz-minibuffer-map "\C-q\C-n" 'vz-insert-buffer-file-name) ;;(define-key vz-minibuffer-map "\C-]" 'vz-help) (define-key vz-minibuffer-map "\C-i" 'self-insert-command) (define-key vz-minibuffer-map " " 'self-insert-command) (setq vz-minibuffer-completion-map (copy-keymap vz-minibuffer-map)) (define-key vz-minibuffer-completion-map "\C-i" 'minibuffer-complete) (define-key vz-minibuffer-completion-map " " 'minibuffer-complete-word) (define-key vz-minibuffer-completion-map "?" 'minibuffer-completion-help) ;; ;; some modifications ;; (define-key vz-C-k-map "o" 'vz-search-option-menu) (define-key vz-C-k-map "\C-o" 'vz-search-option-menu) (define-key vz-C-k-map "l" 'redraw-display) (define-key vz-C-k-map "\C-l" 'redraw-display) (define-key vz-C-k-map "p" 'lpr-region) (define-key vz-C-k-map "\C-p" 'lpr-region) (define-key vz-mode-map '(shift f6) 'grep) ;;(define-key vz-mode-map '(shift f10) 'next-error) (define-key vz-esc-map "1" 'vz-file-menu) (define-key vz-esc-map "3" 'vz-buffer-menu) (define-key vz-esc-map "!" 'vz-mode-menu) (define-key vz-esc-map "\"" 'vz-sub-menu) (define-key vz-esc-map "\e" 'eval-expression) (define-key vz-esc-map "x" 'execute-extended-command) (define-key vz-mode-map "\C-]" 'help-command) ;;(define-key vz-mode-map "\C-?" 'vz-delete-backward-char) ;;(define-key vz-C-q-map "\C-?" 'vz-backward-kill-word) ;;(define-key vz-C-k-map "\C-?" 'vz-change-indent) ;;(define-key vz-mode-map "\C-o" 'vz-end-kbd-macro) ;;(define-key vz-mode-map "\C-e" 'previous-line) ;;(define-key vz-mode-map "\C-x" 'next-line) ;;(define-key vz-mode-map "\C-u" 'advertised-undo) ;;(define-key vz-esc-map "x" 'vz-close-all-files) ;;(define-key vz-mode-map '(help) 'help-command) ;;(define-key vz-mode-map '(prior) 'vz-smooth-scroll-down) ;;(define-key vz-mode-map '(next) 'vz-smooth-scroll-up) ;;(define-key vz-esc-map "e" 'suspend-emacs) ;;(define-key vz-mode-map '(shift escape) 'undefined) ;;(define-key vz-esc-map "e" 'shell) ;;(define-key vz-mode-map '(shift escape) 'shell) ;; end of vz-keys.el