;;; --- .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