;;; -*- Emacs-Lisp -*-
;;; vz-more.el
;;; version 0.7.4   (95.1.16)
;;; 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-more.el

;; vz-more.elはオマケです。

;; ＜vz-more.elって何？＞
;; c-mode, text-mode, emacs-lisp-modeなど必要ないという過激な方は、
;; (require 'vz)
;;  のかわりに
;; (require 'vz-more)
;; にすると、ほとんどの場面でvz風にできます。

(kill-all-local-variables)

(setq vz-mode-map (copy-keymap global-map))
(setq vz-minibuffer-map (copy-keymap minibuffer-local-map))

(load "vz" nil)

(use-global-map vz-mode-map)

;minibufferのキーマップってどうやって変えるんだろ？
;minibuffer-setup-hookでuse-local-mapするのかなー？
(setq minibuffer-local-map
      (copy-keymap vz-minibuffer-map))
(setq minibuffer-local-completion-map
      (copy-keymap vz-minibuffer-completion-map))
(setq minibuffer-local-ns-map
      (copy-keymap vz-minibuffer-map))
(setq minibuffer-local-must-match-map
      (copy-keymap vz-minibuffer-completion-map))
(setq read-expression-map
      (copy-keymap vz-minibuffer-map))
(define-key minibuffer-local-ns-map
  " " 'exit-minibuffer)
(define-key minibuffer-local-ns-map
  "\C-i" 'exit-minibuffer)
(define-key minibuffer-local-ns-map
  "?" 'self-insert-and-exit)
(define-key minibuffer-local-must-match-map
  "\C-m" 'minibuffer-complete-and-exit)
(define-key minibuffer-local-must-match-map
  "\C-j" 'minibuffer-complete-and-exit)
;;(define-key read-expression-map
;;  "\M-\t" 'lisp-complete-symbol)

(let ((c 0))
  (while (<= c 32)
    (modify-syntax-entry c " ")
    (setq c (1+ c))))

(modify-syntax-entry ?$ "w")
(modify-syntax-entry ?_ "w")
(modify-syntax-entry ?< "(>")
(modify-syntax-entry ?> ")<")
(modify-syntax-entry ?{ "(}")
(modify-syntax-entry ?} "){")

(setq scroll-step 1)
(setq next-line-add-newlines nil)
(setq blink-matching-paren nil)
(setq case-replace nil)
(setq truncate-lines nil)
;;(setq truncate-partial-width-windows nil)
;;(setq auto-mode-alist '(("^.*$" . vz-mode)))
(setq auto-mode-alist nil)
(setq default-major-mode 'fundamental-mode)
(setq initial-major-mode default-major-mode)
(setq enable-local-variables nil)

;;一応mode-nameも入れるべきでしょうか？
(setq-default mode-line-format
	      (`
	       (""
		"[" (vz-search-flag "S" "P")    "]"
		"[" (vz-block-mark-pos "B" " ") "]"
		"[" (overwrite-mode "O" " ")    "] "
		(, (if (string< "19.29" emacs-version)
		       "(L%5l:%5c)" "(L%5l)"))
		" ["
		vz-indicator
		"] "
		mode-line-mc-status
		"%1*%1+ %15b"
		)))

(defun vz-update-cursor ()
  (aset (setq vz-indicator (make-string 16 ?-))
	(/ (ash (1- (point)) 4) (1+ (buffer-size))) ?+)
  (and vz-block-overlay
       (move-overlay vz-block-overlay vz-block-mark-line
		     (save-excursion (beginning-of-line) (point)))))

(run-hooks 'vz-mode-hook)

(provide 'vz-more)
;; end of vz-more.el