;;; -*- 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-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 "\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