--- a/.emacs Fri Apr 18 00:16:18 2008 +0300
+++ b/.emacs Wed Apr 23 22:13:48 2008 +0300
@@ -1,911 +1,28 @@
;; -*- mode: lisp; coding: cp1251 -*-
-;;
+
;; Copyright (C) 2008 by Gavenko Oleksandr
;; Copyright (C) 2008 by Гавенко Алескандр
-;;
-;; ~/.emacs file for GNU Emacs 21.
-;; silent runing
-(setq inhibit-startup-message t)
-
-;; ======================================================================
-;; Debugging.
-
-;; Shut off message buffer by setting nil. Note - if you need to debug emacs,
-;; comment these out so you can see what's going on.
-(setq message-log-max 100)
-
-;;(add-hook 'after-init-hook
-;; '(lambda () (setq debug-on-error t)))
-;;(debug-on-entry 'command-line-1)
-
-;; Set the debug option to enable a backtrace when a problem occurs.
-(setq debug-on-error nil) ; t/nil
-
-;; ======================================================================
-;; Load path.
-(setq my-el-dir (expand-file-name "~/.el"))
-(add-to-list 'load-path my-el-dir)
-
-;; ======================================================================
-;; GNU Serv.
-
-;; (load "~/emacs/bin/gnuserv/gnuserv.el")
-;; (require 'gnuserv)
-;; (setq gnuserv-frame (selected-frame))
-
-(server-start)
-
-;; (desktop-load-default)
-;; (desktop-read)
-
-;; ======================================================================
-;; Настройка внешнего вида редактора.
-;; View.
-
-; remove menu on nil
-(menu-bar-mode nil) ; t/nil
-; remove button on nil
-(tool-bar-mode nil) ; t/nil
-
-(if window-system
- ;; Для X-window и Win
- (progn
- ;; size of emacs area and position
- (set-frame-height (selected-frame) 52)
- (set-frame-width (selected-frame) 130)
- (set-frame-position (selected-frame) 30 15)
-
- ;;установка цветов экрана
- (set-background-color "white")
- (set-foreground-color "black")
- ;;установка режимов работы курсора
- (set-cursor-color "brown")
- ;;(setq blink-matching-delay 0.01)
- ;; курсор не мигает!
- ;; (blink-cursor-mode nil)
- ;; (set-face-font 'default "7x14")
- )
- ;; Для tty
- (progn
- )
-)
-
-;; ======================================================================
-;; Standart settings
-
-;прикрепляет к каждому окну полоску прокрутки t/nil
-(scroll-bar-mode t)
-
-;; удаляем строку целиком
-(setq kill-whole-line t)
-
-;; show column & line numbers in status bar
-(setq column-number-mode t)
-(setq line-number-mode t)
-
-(load "~/.emacs-custom.el")
-
-;; ----------------------------------------------------------------------
-;; Scrolling
-
-;; гладкий скроллинг с полями
-;; (setq-default scroll-conservatively 70)
-;; (setq-default scroll-preserve-screen-position 't)
-;; при перемешении точка останавливается на расстоянии i строк к границе фрейма,
-;; далее скролиться текст
-;; (setq scroll-margin 2)
-
-;; ----------------------------------------------------------------------
-;; *Text*
-(setq default-major-mode 'text-mode)
-(add-hook 'text-mode-hook 'turn-on-auto-fill)
-
-;; ----------------------------------------------------------------------
-;; Show marked text
-(setq transient-mark-mode t)
-(setq font-lock-maximum-decoration t)
-;; syntax highlighting
-(global-font-lock-mode 1 t)
-
-;; ----------------------------------------------------------------------
-;; Line
-(if window-system
- (progn
- (global-hl-line-mode t)
- (custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))
- )
- )
-
-;; ----------------------------------------------------------------------
-;; Paren
-
-(show-paren-mode 1) ; Parenthesis matching via highlighting.
-;; (setq show-paren-style 'expression) ; выделять все выражение в скобках
-(setq show-paren-style (quote parenthesis))
-
-;; ======================================================================
-;; Keyboard, mouse and selection
-
-(setq default-input-method 'cyrillic-jcuken)
-;; (pc-bindings-mode) ; Myself define keybinding, see
-;; Настройка выделения "как в Windows"
-(setq pc-select-selection-keys-only t) ; to avoid some key bindings as F6, etc
-(pc-selection-mode) ; This mode enables Delete Selection mode and Transient Mark mode.
-(transient-mark-mode t) ; t/nil, when the mark is active, the region is highlighted
-(delete-selection-mode t) ; t/nil
-
-;; ----------------------------------------------------------------------
-;; Completition
-(partial-completion-mode t) ; For example, M-x p-c-m expands to M-x partial-completion-mode
-
-;; ----------------------------------------------------------------------
-;; Mouse
-
-;; Scroll Bar gets dragged by mouse butn 1
-(global-set-key [vertical-scroll-bar down-mouse-1] 'scroll-bar-drag)
-;; Paste at point NOT at cursor
-(setq mouse-yank-at-point 't)
-(mouse-wheel-mode 1)
-
-;; ----------------------------------------------------------------------
-;; Key Binding (Short-keys).
-
-(global-set-key [home] 'beginning-of-line)
-(global-set-key [end] 'end-of-line)
-(global-set-key [C-home] 'beginning-of-buffer)
-(global-set-key [C-end] 'end-of-buffer)
-(global-set-key [C-delete] 'kill-word)
-(global-set-key [delete] 'delete-char)
-;; (global-set-key [backspace] 'backward-delete-char-untabify) ; not work properly in *info* mode
-
-;; setting some f[1-12] keys
-(global-set-key [f1] 'help)
-(global-set-key [f2] 'save-buffer)
-;; (global-set-key [xxx] 'ediff-buffers)
-(global-set-key [f4] 'ispell-buffer)
-(global-set-key [f8] 'kill-this-buffer)
-(global-set-key [M-f4] 'save-buffers-kill-emacs)
-(global-set-key [f6] 'toggle-truncate-lines)
-
-;; search
-(global-set-key [f3] 'search-forward)
-(global-set-key [S-f3] 'search-backward)
-;; *Occur*
-(global-set-key (kbd "\e\eo") 'occur)
-
-;; frames, windows manipulation, switch buffers
-(global-set-key [C-tab] 'other-window)
-(global-set-key [?\C-x right] 'next-buffer)
-(global-set-key [?\C-x left] 'previous-buffer)
-
-(global-set-key (kbd "C-x C-d") 'dired)
-
-(global-set-key (kbd "\e\eg") 'goto-line)
-(global-set-key (kbd "\e\er") 'query-replace-regexp)
-
-;; (global-set-key [language-change] 'ignore)
-
-(global-set-key (kbd "C-x C-d") 'dired)
-
-;; ======================================================================
-;; Coding system, charset, locale, lang.
-
-; Подготовка к использованию соответствующих кодовых страниц.
-(codepage-setup 866)
-(codepage-setup 1251)
-
-;; (setq-default coding-system-for-read 'cp1251-dos) ; comment because prefer-coding-system will be ignored
-;; (setq-default coding-system-for-write 'cp1251-dos) ;
-
-;; (setq locale-coding-system 'cp1251-dos)
-;; (set-terminal-coding-system 'cp1251)
-;; (set-keyboard-coding-system 'cp1251)
-
-(prefer-coding-system 'koi8-r-dos)
-(prefer-coding-system 'utf-16-le)
-(prefer-coding-system 'cp866-dos)
-
-(modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit)
-(if (equal window-system 'w32)
- (progn
- (set-selection-coding-system 'cp1251)
- (prefer-coding-system 'utf-8-unix)
- (prefer-coding-system 'cp1251-dos)
- (modify-coding-system-alist 'file "\\.[ch]" 'cp1251)
- (modify-coding-system-alist 'file "[Mm]akefile.*" 'cp1251)
- )
- (progn
- (set-selection-coding-system 'utf-8-unix)
- (prefer-coding-system 'cp1251-dos)
- (prefer-coding-system 'utf-8-unix)
- (modify-coding-system-alist 'file "\\.[ch]" 'cp1251-unix)
- (modify-coding-system-alist 'file "[Mm]akefile.*" 'cp1251-unix)
- (modify-coding-system-alist 'process ".*" 'utf-8-unix)
- )
- )
-
-;; XXXXXXXXXXXXXXXXXXXXXXXX
-
-;; To open from command line file, which names has extended opcode
-;; (set-file-name-coding-system 'cp1251)
-
-;; (set-language-environment "Russian")
-
-;; ======================================================================
-;;
-;; NON-STANDARD VARIABLES
-
-(defvar emacs-base-dir
- (expand-file-name "~/emacs")
- "*Name of directory where emacs instaled.")
-
-;; ======================================================================
-;;
-;; STANDARD VARIABLES
-
-(if (boundp 'confirm-kill-emacs)
- (setq confirm-kill-emacs 'yes-or-no-p))
-
-;; Try to speed things up, especially in VM.
-(setq gc-cons-threshold 2000000)
-
-;; Don't beep in my headphones!
-;; (setq visible-bell t) ; XXX in text terminal revert screen if press [end] or [home]
-
-(setq ange-ftp-generate-anonymous-password
- user-mail-address)
-
-;; Prompt before evaluating local bits of lisp. This stops people
-;; putting things at the end of files which delete all your files!
-(setq enable-local-variables t
- enable-local-eval 1)
-
-;; ======================================================================
-;;
-;; STANDARD LIBRARIES
-
-(require 'jka-compr) ; Automatic decompression, hooks for tar-mode.
-(if (fboundp 'auto-compression-mode)
- (auto-compression-mode 1))
-
-;; ======================================================================
-;; Save
-(setq auto-save-default nil)
-
-;; ----------------------------------------------------------------------
-;; *Recentf*
-;; Recent files in menu
-(require 'recentf)
-(recentf-mode t)
-(setq recentf-max-saved-items 200)
-(global-set-key (kbd "\e\eq") 'recentf-open-files)
-
-;; ----------------------------------------------------------------------
-;; revert
-(global-set-key [f5] 'revert-buffer)
-(setq revert-without-query (quote (".*")))
-(setq auto-revert-interval 2)
-
-;; ======================================================================
-;; Convenient
-
-;; ----------------------------------------------------------------------
-;; Completion
-(require 'icomplete) ; Interactive completion in minibuffer.
-(icomplete-mode) ; Toggle incremental minibuffer completion for this Emacs session.
-;; может дополнять несколько слов одновременно
-(load "complete")
-(setq completion-ignored-extensions (quote ("CVS/" ".o" "~" ".bin" ".bak" ".obj" ".map" ".a" ".ln" ".blg" ".bbl" ".elc"
- ".lof" ".glo" ".idx" ".lot" ".fmt" ".tfm" ".class" ".fas" ".lib" ".x86f" ".sparcf"
- ".lo" ".la" ".toc" ".log" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps"
- ".fns" ".kys" ".pgs" ".tps" ".vrs")))
-
-
-;; ----------------------------------------------------------------------
-;; *grep*
-(setq grep-command "find . -name '*' -exec grep -nH '' {} ;"
- grep-find-command "find . -type f ! -path '*.svn*' ! -path '*CVS*' ! -path '*.hg*' -name '*' -print0 | xargs -0 -e grep -nH "
- grep-highlight-matches nil ; do not set t because some grep do not has --color options
- grep-tree-command "find <D> <X> -type f <F> -print0 | xargs -0 -e grep <C> -nH <R>"
- grep-use-null-device t)
-(setq blink-matching-paren-on-screen t)
-
-;; ----------------------------------------------------------------------
-;; Music
-(setq gnus-audio-au-player "winamp.exe"
- gnus-audio-directory "D:\\music"
- gnus-audio-wav-player "winamp.exe")
-
-
-;; ======================================================================
-;; TIME SETTING
-
-;; ----------------------------------------------------------------------
-;; Time
-;;
-;; Time in 24 hour format, plus day and date.
-;; (setq display-time-day-and-date t
-;; display-time-24hr-format t
-;; display-time-use-mail-icon t
-;; display-time-day-and-date t
-;; display-time-mail-file nil)
-;; (display-time)
-
-;; ----------------------------------------------------------------------
-;; Calendar
-;; (setq mark-holidays-in-calendar t)
-;; (setq all-christian-calendar-holidays t)
-;; (setq calendar-date-display-form (quote ((format "%04s-%02d-%02d" year (string-to-int month) (string-to-int day)))))
-;; (setq calendar-time-display-form (quote (24-hours ":" minutes (if time-zone " (") time-zone (if time-zone ")"))))
-;; (setq calendar-week-start-day 1)
-;; (setq european-calendar-style t)
-
-;; ======================================================================
-;;
-;; STANDARD HOOKS
-
-(add-hook 'write-file-hooks 'time-stamp)
-
-;; ======================================================================
-;; *auto-fill*
-
-(setq-default fill-column 90)
-;; Turn on auto-fill mode
-(add-hook 'html-mode-hook 'turn-on-auto-fill)
-(global-set-key (kbd "\e\ef") 'auto-fill-mode)
-
-;; ----------------------------------------------------------------------
-;; DESIRE
-
-;; (require 'desire)
-
-;; (add-to-list 'desire-load-path
-;; (expand-file-name "~/share/emacs/desire"))
-;; (add-to-list 'auto-mode-alist
-;; (cons (concat (regexp-quote desire-extension) "\\'")
-;; 'emacs-lisp-mode))
-
-;; ----------------------------------------------------------------------
-
-;; Pilot support
-;; (desire 'pilot)
-
-;; ----------------------------------------------------------------------
-
-;; BBDB - Must be loaded before most other things, since other things
-;; may perform special configuration if BBDB is present.
-;;
-;; (desire 'bbdb "bbdb")
-
-;; ----------------------------------------------------------------------
-;; Appointments, diary, calendar.
-;;
-;; Use "M-x calendar RET" to display the calendar and start
-;; appointment warnings.
-
-;; (desire 'appt)
-;; (desire 'calendar)
-;; (desire 'todo-mode)
-;; (desire 'diary "diary-lib")
-
-;; ----------------------------------------------------------------------
-
-;; These provide options for the various message handling packages.
-;; (desire 'browse-url)
-;; (desire 'mailcrypt)
-;; (desire 'supercite)
-
-;; Message handing packages.
-;; (desire 'gnus)
-;; (desire 'message)
-;; (desire 'vm)
-;; (desire 'sendmail)
-
-;; ----------------------------------------------------------------------
-
-;; Miscellaneous
-
-;; (desire 'abbrev)
-;; (desire 'bibtex)
-;; (desire 'calc)
-;; (desire 'cc-mode)
-;; (desire 'ediff)
-;; (desire 'eiffel-mode)
-;; (desire 'emacs-w3m)
-;; (desire 'eudc)
-;; (desire 'filladapt)
-;;;; (desire 'hugs-mode)
-;; (desire 'haskell-mode)
-;; (desire 'ispell)
-;; (desire 'latex)
-;; (desire 'lispdir)
-;; (desire 'mpg123)
-;; (desire 'php-mode)
-;; (desire 'ps-print)
-;; (desire 'psgml)
-;; (desire 'sh-script)
-;; (desire 'shell)
-;;; (desire 'sql-mode)
-;; (desire 'tex)
-;; (desire 'w3)
-
-;; ======================================================================
-;;
-;; PERSONAL
-
-;; (require 'chord-mode) ; edit guitar music.
-;; (require 'discography) ; variant of BibTeX mode for discographies.
-
-;; ======================================================================
-;;
-;; unNOVICEd commands...
-;;
-;; The following commands are usually disabled by default. Enable
-;; them...
-
-(put 'eval-expression 'disabled nil)
-(put 'downcase-region 'disabled nil)
-(put 'upcase-region 'disabled nil)
-(put 'narrow-to-page 'disabled nil)
-(put 'narrow-to-region 'disabled nil)
-
-;; ======================================================================
-;; TEX
-(setq tex-run-command "initex")
-
+(load "~/.emacs-my")
-;; ======================================================================
-;; AUC TeX
-
-;; (load "tex-site")
-
-;(require 'tex-mik)
-;(add-hook 'LaTeX-mode-hook 'LaTeX-install-toolbar)
-;; (setq TeX-parse-self t) ; Enable parse on load.
-;; (setq TeX-auto-save t) ; Enable parse on save.
-;; (setq-default TeX-master nil) ; Query for master file. Finally, if you often use \include or \input, you should make AUCTEX aware of the multi-file document structure
-
-;(setq TeX-PDF-mode t)
-;(setq TeX-interactive-mode t)
-;(setq TeX-source-specials-mode 1)
-;(load "tex-site")
-;(load "tex-mik")
-
-;;модифицируем меню
-;;; some more menu entries in the command list:
-;;; see tex-mik.el from package auctex: %v is defined in tex-mik.el
-;;; other variables are defined in tex.el from auctex
-;;; the meaning of some auctex-varibles:
- ;symbols defined in tex.el and tex-mik.el:
- ;%b name slave tex-file %t name master tex-file
- ;%d dvi-file %f ps-file
- ;%l "latex --src-specials"
- ;%n line number %p printcommand %q "lpq"
- ;%r (TeX-style-check TeX-print-style)
- ;%s master-file-name without extention
- ;%v yap command view line
-;(eval-after-load "tex"
-; '(progn
-; (add-to-list 'TeX-command-list
-; (list "->PS landscape for pdf"
-; "dvips %d -N0 -Ppdf -G0 -T 297mm,210mm -o %f "
-; 'TeX-run-command nil t))
-; (add-to-list 'TeX-command-list
-; (list "All Texify run-viewer"
-; "texify --tex-opt=--src --run-viewer --clean %s.tex"
-; 'TeX-run-command nil t))))
-
-
-;; ======================================================================
-;;
-;; Reftex activation (Reftex is included with Emacs 21.1)
-
-;; (autoload 'reftex-mode "reftex" "RefTeX Minor Mode" t)
-;; (autoload 'turn-on-reftex "reftex" "RefTeX Minor Mode" nil)
-;; (autoload 'reftex-citation "reftex-cite" "Make citation" nil)
-;; (autoload 'reftex-index-phrase-mode "reftex-index" "Phrase mode" t)
-;; (add-hook 'LaTeX-mode-hook 'turn-on-reftex) ; with AUCTeX LaTeX mode
-;; (add-hook 'latex-mode-hook 'turn-on-reftex) ; with Emacs latex mode
-
-;; ======================================================================
-;;
-;;Настройки PreviewLatex
-
-;(load "preview-latex.el" nil t t)
-
-;(add-hook 'LaTeX-mode-hook #'LaTeX-preview-setup)
-;(autoload 'LaTeX-preview-setup "preview")
-
-
-;; ======================================================================
-;;
-;; Info
-
-(require 'info)
-(if (equal window-system 'w32)
- (progn
- (setq Info-directory-list (list (expand-file-name "~/../bin/emacs/info")))
- (add-to-list 'Info-directory-list (expand-file-name "~/../bin/MinGW/info") t) ; t - append to the end
- ))
-
-;; ======================================================================
-;;
-;; SHELL
-
-;; If you plan to use the bash shell, add the following lines to your .emacs file:
-;; (setq binary-process-input t)
-;; (setq w32-quote-process-args ?\")
-;; (setq shell-file-name "bash") ;; or sh if you rename your bash executable to sh.
-;; (setenv "SHELL" shell-file-name)
-;; (setq explicit-shell-file-name shell-file-name)
-;; (setq explicit-sh-args '("-login" "-i"))
-
-;; Include the following only if you want to run
-;; bash as your shell.
-
-;; Setup Emacs to run bash as its primary shell.
-;; (setq shell-file-name "bash")
-;; (setq shell-command-switch "-c")
-;; (setq explicit-shell-file-name shell-file-name)
-;; (setenv "SHELL" shell-file-name)
-;; (setq explicit-sh-args '("-login" "-i"))
-;; (if (boundp 'w32-quote-process-args)
-;; (setq w32-quote-process-args ?\")) ;; Include only for MS Windows.
-
-;; (setq sh-shell-file "D:\\home\\cygwin\\bin\\sh.exe")
-;; (setq sh-shell-arg (quote ((bash) (csh . "-f") (pdksh) (ksh88) (rc . "-p") (wksh) (zsh . "-f") (sh . "-i"))))
-(setq explicit-bash-args (quote ("-login" "-i")))
-
-
-(if (equal window-system 'w32)
- (progn
- (setq auto-mode-alist
- (append
- (list (cons "\\.[bB][aA][tT]$" 'bat-mode))
- ;; For DOS init files
- (list (cons "CONFIG\\." 'bat-mode))
- (list (cons "AUTOEXEC\\." 'bat-mode))
- auto-mode-alist))
- (require 'bat-mode)
- )
- )
-
-;; ======================================================================
-;;
-;; Spell
-
-;(setq ispell-dictionary "russianw"); default dictionary
-;(setq ispell-local-dictionary "russianw"); default dictionary
-;(add-hook 'text-mode-hook 'flyspell-mode)
-;(setq flyspell-default-dictionary "russianw")
-;(setq flyspell-delay '1)
-;; (setq ispell-local-dictionary-alist
-;; '((nil ; default (english.aff)
-;; "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil iso-8859-1)
-;; ("UK-xlg" ; english large version
-;; "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B" "-d" "UK-xlg") nil iso-8859-1)
-;; ("US-xlg" ; american large version
-;; "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B" "-d" "US-xlg") nil iso-8859-1)
-;; )
-;; )
-
-;; ======================================================================
-;; VCS, version control, cvs, svn.
-
-(modify-coding-system-alist 'process "cvs" '(cp1251-dos . cp1251-dos))
-(modify-coding-system-alist 'process "svn" '(cp866-dos . cp1251-dos))
-
-;; (setq-default vc-svn-register-switches "--encoding cp1251")
-(setq-default vc-svn-register-switches nil)
-
-(setq my-svn-dir (concat my-el-dir "/svn"))
-(if (file-exists-p my-svn-dir)
- (progn
- (add-to-list 'load-path my-svn-dir)
- (require 'vc-svn)
- )
- )
-
-(if (file-exists-p (concat my-el-dir "/mercurial.el"))
- (require 'mercurial)
- )
-
-(if window-system
- (setq-default vc-annotate-background "white")
- )
-
-;; ======================================================================
-;; Devel, prog
-
-(add-to-list 'auto-mode-alist '("\\.cu$" . c-mode))
-
-(setq-default show-trailing-whitespace t)
-;; (add-hook 'c-mode-hook '(lambda ()
-;; (setq show-trailing-whitespace t)))
-
-;; ----------------------------------------------------------------------
-;; TODO, XXX, FIXME highlight.
-;; Show blanks and FIXME
-;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
-
-(defface my-tab-face
- '((t :background "gray"))
- "Face for showing TABs."
- :group 'basic-faces)
-
-(defface my-todo-face
- '((t :foreground "red" :weight bold))
- "Font for showing TODO words."
- :group 'basic-faces)
-
-(defface my-conflict-face
- '((t :background "pink" :foreground "red" :weight bold))
- "Font for showing conflicts."
- :group 'basic-faces)
-
-(add-hook 'font-lock-mode-hook (function (lambda ()
- (unless (or (eq 'diff-mode major-mode) (eq 'script-mode major-mode))
- (font-lock-add-keywords nil
- '(
- ("\t+" 0 'my-tab-face t)
- ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'my-todo-face t)
- ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t)
- ))))))
-
-;; ----------------------------------------------------------------------
-;; Diff, patch
-(setq diff-switches "-u")
-
-;; ----------------------------------------------------------------------
-;; Indent
-
-(setq standard-indent 4)
-(setq c-basic-offset 4)
-(setq sh-basic-offset 2)
-(setq sgml-basic-offset 4)
-
-;; TAB (tab settings)
-(setq-default tab-width 4)
-(setq-default indent-tabs-mode nil) ; t - будут вставляться \t
-(setq tab-always-indent t)
-(setq tab-stop-list (quote (0 4 8 12 16 20 24 28 32 36 40)))
-(setq c-tab-always-indent t)
-
-(setq comment-style (quote indent))
-
-;; ----------------------------------------------------------------------
-;; Diff.
-(setq ediff-diff-options "")
-
-;; ----------------------------------------------------------------------
-;; *Compile*
-(setq compile-auto-highlight t
- compile-command "make ")
-;; compilation window shall scroll down if not 0
-(setq compilation-scroll-output 1)
-
-;; My funny error messages.
-;; XXX нужно реализовать через hook.
-(require 'compile)
-(add-to-list 'compilation-error-regexp-alist-alist '(nant "^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4))
-(add-to-list 'compilation-error-regexp-alist 'nant)
-(add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ ]+\\)" . 1))
-(add-to-list 'compilation-mode-font-lock-keywords '("[ ]\\(/F[oe][^ ]+\\)" . 1))
-
-;; ----------------------------------------------------------------------
-;; asm
-(setq-default asm-comment-char 0)
-
-
-;; ----------------------------------------------------------------------
-;; LISP
-(setq list-command-history-max 256)
-
-;; ----------------------------------------------------------------------
-;; C, c-lang
-(setq c-echo-syntactic-information-p t)
-
-(defconst my-c-style
- '((c-tab-always-indent . t)
- (c-comment-only-line-offset . 4)
- (c-hanging-braces-alist . ((substatement-open after)
- (brace-list-open)))
- (c-hanging-colons-alist . ((member-init-intro before)
- (inher-intro)
- (case-label after)
- (label after)
- (access-label after)))
- (c-cleanup-list . (scope-operator
- empty-defun-braces
- defun-close-semi))
- (c-offsets-alist . ((arglist-intro . ++)
- (arglist-close . c-lineup-arglist)
- (arglist-cont-nonempty . ++)
- (statement-block-intro . +)
- (inline-open . 0)
- (inexpr-class . 0)
- (statement-cont . ++)
- (label . 0)
- (substatement-open . 0)
- (case-label . 0)
- (block-open . 0)
- (comment-intro . 0)
- (knr-argdecl-intro . -)))
- (c-echo-syntactic-information-p . t))
- "My C Programming Style")
-
-;; (objc-mode . "my-mode") (c++-mode . "cc-mode")
-(add-hook 'c-initialization-hook (lambda ()
- (c-add-style "my" my-c-style t)))
-(setq c-default-style '((java-mode . "my") (c-mode . "my") (csharp-mode . "my") (other . "my")))
-
-;; Customizations for all modes in CC Mode.
-;; (defun my-c-mode-common-hook ()
-;; ;; add my personal style and set it for the current buffer
-;; (c-add-style "PERSONAL" my-c-style t)
-;; ;; other customizations
-;; (setq tab-width 8
-;; ;; this will make sure spaces are used instead of tabs
-;; indent-tabs-mode nil)
-;; ;; we like auto-newline and hungry-delete
-;; (c-toggle-auto-hungry-state 1)
-;; ;; key bindings for all supported languages. We can put these in
-;; ;; c-mode-base-map because c-mode-map, c++-mode-map, objc-mode-map,
-;; ;; java-mode-map, idl-mode-map, and pike-mode-map inherit from it.
-;; (define-key c-mode-base-map "\C-m" 'c-context-line-break))
-
-;; (add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
-
-;; ----------------------------------------------------------------------
-;; *csharp*, c-sharp
-;;
-(autoload 'csharp-mode "csharp-mode" "Major mode for editing C# code." t)
-(add-to-list 'auto-mode-alist '("\\.cs$" . csharp-mode))
-
-;; ----------------------------------------------------------------------
-;; *Java*
-;; Update the Emacs load-path to include the path to
-;; the JDE and its require packages. This code assumes
-;; that you have installed the packages in the emacs/site
-;; subdirectory of your home directory.
-;; (add-to-list 'load-path (expand-file-name "~/emacs/site/semantic"))
-;; (add-to-list 'load-path (expand-file-name "~/emacs/site/speedbar"))
-;; (add-to-list 'load-path (expand-file-name "~/emacs/site/elib-1.0"))
-;; (add-to-list 'load-path (expand-file-name "~/emacs/site/eieio"))
-;; (add-to-list 'load-path (expand-file-name "~/emacs/site/jde-2.3.5.1/lisp"))
-
-;; Load CEDET
-;; (load-file "~/emacs/site/common/cedet.el")
-;; Enabling SEMANTIC minor modes. See semantic/INSTALL for more ideas.
-;; (semantic-load-enable-code-helpers)
-
-;; If you want Emacs to defer loading the JDE until you open a
-;; Java file, edit the following line
-;; (setq defer-loading-jde nil)
-;; to read:
-;;
-;; (setq defer-loading-jde t)
-;;
-
-;; (if defer-loading-jde
-;; (progn
-;; (autoload 'jde-mode "jde" "JDE mode." t)
-;; (add-to-list 'auto-mode-alist '("\\.java\\'" . jde-mode))
-;; (require 'jde)))
-
-
-;; Sets the basic indentation for Java source files
-;; to two spaces.
-;; (defun my-jde-mode-hook ()
-;; (setq c-basic-offset 2))
-
-;; (add-hook 'jde-mode-hook 'my-jde-mode-hook)
-
-;; (require 'jde)
-
-;; ********************
-;; ECB
-;; *******************
-
-;; load ECB
-;; (add-to-list 'load-path "~/emacs/site/ecb-2.32")
-;; (require 'ecb)
-
-;; load ECB
-;(add-to-list 'load-path "~/emacs/site/ecb-2.32")
-;(require 'ecb)
-;'(ecb-options-version "2.32")
-;'(ecb-wget-setup (quote cons))
-;(global-set-key (kbd "\e\eE") 'ecb-activate)
-
-;; ======================================================================
-;; Printing
-
-;; Use Notepad to print plain text files to the default Windows printer
-;(setq lpr-command "notepad")
-;(setq lpr-headers-switches '("/p")) ; \ mis-use these
-;(setq lpr-switches nil) ; / two variables
-;(setq printer-name nil) ; notepad takes the default
-;(setq lpr-printer-switch "/P") ;; run notepad as batch printer
-;;
-;;Печать в файл
-;(setq printer-name "~/myprint.txt")
-;(setq ps-printer-name nil)
-;(setq ps-print-header nil)
-;;модифицируем меню
-;;; some more menu entries in the command list:
-;;; see tex-mik.el from package auctex: %v is defined in tex-mik.el
-;;; other variables are defined in tex.el from auctex
-;;; the meaning of some auctex-varibles:
- ;symbols defined in tex.el and tex-mik.el:
- ;%b name slave tex-file %t name master tex-file
- ;%d dvi-file %f ps-file
- ;%l "latex --src-specials"
- ;%n line number %p printcommand %q "lpq"
- ;%r (TeX-style-check TeX-print-style)
- ;%s master-file-name without extention
- ;%v yap command view line
-;(eval-after-load "tex"
-; '(progn
-; (add-to-list 'TeX-command-list
-; (list "->PS landscape for pdf"
-; "dvips %d -N0 -Ppdf -G0 -T 297mm,210mm -o %f "
-; 'TeX-run-command nil t))
-; (add-to-list 'TeX-command-list
-; (list "All Texify run-viewer"
-; "texify --tex-opt=--src --run-viewer --clean %s.tex"
-; 'TeX-run-command nil t))))
-
-
-;; ======================================================================
-;;
-;; Установка режима CUA - все как в Windows
-;; поддержка Ctr-c,v,x,d как в windows через пакет CUA
-
-;; версия 21.3
-
-;(require 'cua)
-;(CUA-mode t)
-;;установка режимов работы курсора через CUA
-;(setq CUA-mode-normal-cursor-color "black")
-;(setq CUA-mode-overwrite-cursor-color "red")
-;(setq CUA-mode-read-only-cursor-color "green")
-;(CUA-keypad-mode 'numeric t); доп.клавиатура - цифры
-;(CUA-keypad-mode 'prefix t); доп.клавиатура - префиксы регистров (М-2)
-
-;; версия 21.3.50 и старше
-
-;(require 'cua-base)
-;(cua-mode t)
-;;установка режимов работы курсора через CUA
-;(setq cua-normal-cursor-color "black")
-;(setq cua-overwrite-cursor-color "red")
-;(setq cua-read-only-cursor-color "green")
-
-
-;; ======================================================================
-;; Backup
-
-;; (setq
-;; backup-by-copying t ; don't clobber symlinks
-;; backup-directory-alist
-;; '(("." . "~/backup")) ; don't litter my fs tree
-;; delete-old-versions t
-;; kept-new-versions 6
-;; kept-old-versions 2
-;; version-control t) ; use versioned backups
-;(setq version-control t);нумерованный бэкап - 2 первых и 2 последних
-;(setq delete-old-versions t);удаление промежуточных бэкапов
-
-
-;; ======================================================================
-
-(cd "~/")
-(setq my-author-name (getenv "USER"))
-(setq user-full-name (getenv "USER"))
-
-(message ".emacs loaded OK.")
-
-;;
-;; End loading...
+(custom-set-variables
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(Info-enable-edit t)
+ '(browse-url-browser-function (quote browse-url-default-windows-browser))
+ '(ecb-tip-of-the-day nil)
+ '(eshell-command-interpreter-max-length 1024)
+ '(pc-select-meta-moves-sexps t)
+ '(read-quoted-char-radix 16)
+ '(sentence-end-double-space nil)
+ '(sql-password "")
+ '(view-read-only t)
+ '(w32-allow-system-shell t))
+(custom-set-faces
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(hl-line ((t (:inherit highlight :background "light yellow")))))