(put 'zap-to-char 'disabled t)

(put 'upcase-region 'disabled t)
(global-unset-key "\C-x\C-l")
(global-unset-key "\C-z")
(global-unset-key "\C-xf")

(setq find-file-run-dired nil)

(setq backup-by-copying-when-linked 't)

(display-time)


;;; ISN kety bindings
(global-set-key "\M-s"
		'isearch-forward-regexp)
(global-set-key "\C-\\" 'quoted-insert)
(setq search-repeat-char ?\C-a)
(setq search-quote-char ?\C-\\)

;;; customization of mail mode
(setq mail-mode-hook
      '(lambda ()
	 (auto-fill-mode 1)
	 (setq fill-column 79)))


;;; mode for C++ programs
(setq auto-mode-alist
      (append '(("\\.cc$" . c++-mode)
		("\\.C$" . c++-mode))
	      auto-mode-alist))
(autoload 'c++-mode
	  "c++"
	  "Major mode for editing C++."
	  t)