;;; --- .emacs.el ---
;;; $Id: .emacs.el,v 1.20 2009/11/04 18:08:20 ziggi Exp ziggi $
(setq user-init-file "~/.emacs.el")
;;; --- keymap ---
(setq visible-bell t)
;(define-key global-map [?\C-H] 'backward-char)
;(define-key global-map "\C-h" 'delete-char)
;(keyboard-translate ?\C-h ?\C-?)
(global-set-key "\C-h" 'delete-backward-char)
(normal-erase-is-backspace-mode 0)
;(if (eq window-system 'x)
; ((define-key global-map [?\M-%] 'query-replace-regexp)
; (keyboard-translate ?\C-h ?\C-?)
; (keyboard-translate ?\C-? ?\C-h)
; (define-key global-map [?\C-h] 'delete-char)))
;;; --- locale envronment ---
;; (if (not (eq window-system 'x))
;; (set-language-environment 'cyrillic-koi8)
;; (setq default-file-name-coding-system 'cyrillic-koi8)
;; (setq default-buffer-file-coding-system 'cyrillic-koi8)
;; (setq file-name-coding-system 'cyrillic-koi8)
;; (set-terminal-coding-system 'cyrillic-koi8)
;; (set-default-coding-systems 'cyrillic-koi8)
;; (define-coding-system-alias 'windows-1251 'cp1251))
;; (if (eq window-system 'x)
;; (set-language-environment 'UTF-8)
;; (setq default-file-name-coding-system 'UTF-8)
;; (setq default-buffer-file-coding-system 'UTF-8)
;; (setq file-name-coding-system 'UTF-8)
;; (set-terminal-coding-system 'utf-8-unix)
;; (set-default-coding-systems 'UTF-8)
;; (define-coding-system-alias 'windows-1251 'cp1251))
(if (eq window-system 'x) (menu-bar-mode 1) (menu-bar-mode -1))
(if (eq window-system 'x) (set-background-color "gray95"))
;;; --- comint ---
(add-hook 'comint-output-filter-functions 'comint-strip-ctrl-m)
(add-hook 'comint-output-filter-functions 'comint-postoutput-scroll-to-bottom)
;;; --- info ---
(setq my-info-directory-list '("/usr/local/info/" "/usr/share/info/"))
(setq info-directory-list my-info-directory-list)
(setq info-default-directory-list my-info-directory-list)
(setq info-additional-directory-list my-info-directory-list)
;;; --- gnus ---
;; ;(add-hook 'gnus-summary-mode-hook 'hl-line-mode)
;; (setq gnus-nntp-server nil)
;; (setq gnus-select-method '(nntp "ddt.demos.su"))
;; ;(setq gnus-select-method '(nnspool ""))
;; ;(setq gnus-secondary-select-methods '((nnmbox "")))
;; (setq gnus-secondary-select-methods '((nnml "")))
;; (setq mail-sources
;; '((file :path "/var/mail/ziggi")
;; (pop :server "pop.inbox.ru"
;; :user "strangler"
;; :port "pop3"
;; :password "xxxxxxxx")
;; (pop :server "pop.yandex.ru"
;; :user "ziggi"
;; :port "pop3"
;; :password "xxxxxxxx")
;; ;; (pop :server "pop.inbox.ru"
;; ;; :user "silvergod"
;; ;; :port "pop3"
;; ;; :password "xxxxxxxx")
;; (pop :server "pop.inbox.ru"
;; :user "ziggi"
;; :port "pop3"
;; :password "xxxxxxxx")))
;; (setq mail-source-directory
;; (expand-file-name "~/mail"))
;;; --- auctex ---
;(load "auctex.el" nil t t)
;(load "preview-latex.el" nil t t)
;;; --- sendmail ---
;; (require 'smtpmail)
;; (setq send-mail-function 'smtpmail-send-it)
;; (setq message-send-mail-function 'smtpmail-send-it)
;; (setq smtpmail-default-smtp-server "smtp.mail.ru")
;; (setq smtpmail-smtp-service 25)
;; (setq smtpmail-auth-credentials
;; '(("smtp.mail.ru" 25 "ziggi@inbox.ru" "xxxxxxxx")))
;; (setq smtpmail-queue-mail t)
;;; --- psgml ----
;(require 'psgml)
;(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
;(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
;(load "auctex.el" t t t)
;(load "preview-latex.el" t t t)
;;; -- custom ---
(setq custom-file "~/.custom.el")
(load-file custom-file)
;;; .emacs.el ends here
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
;;;EOF
