User Tools

Site Tools


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