diff -r 5be44cff4683 -r e502c69ab80a .emacs-my
--- a/.emacs-my	Wed Feb 03 23:34:38 2010 +0200
+++ b/.emacs-my	Wed Feb 03 23:46:34 2010 +0200
@@ -10,7 +10,7 @@
 ;; ~/.emacs load this file after ~/.emacs-pre, but before ~/.emacs-post.
 
 ;; ======================================================================
-;; Debugging.
+;; debugging.
 
 ;; Shut off message buffer by setting nil.
 (setq message-log-max 512)
@@ -19,7 +19,7 @@
 (setq debug-on-error nil)               ; t/nil
 
 ;; ======================================================================
-;; Appearance.
+;; appearance.
 
 (menu-bar-mode -1)
 (tool-bar-mode -1)
@@ -47,13 +47,13 @@
 (setq echo-keystrokes 0.2)
 
 ;; ----------------------------------------------------------------------
-;; Silent runing.
+;; silent runing.
 
 ;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1
 (setq inhibit-startup-message t)
 
 ;; ======================================================================
-;; GNU Serv.
+;; gnu serv, server.
 
 ;; (load "~/emacs/bin/gnuserv/gnuserv.el")
 ;; (require 'gnuserv)
@@ -69,7 +69,7 @@
 ;; (desktop-read)
 
 ;; ======================================================================
-;; standart/general settings
+;; standart/general settings.
 
 (setq kill-whole-line t)
 
@@ -84,7 +84,7 @@
 (setq read-quoted-char-radix 16)
 
 ;; ----------------------------------------------------------------------
-;; Switching, creating, selecting buffers.
+;; switching, creating, selecting buffers.
 
 (iswitchb-mode 1)
 (setq iswitchb-buffer-ignore nil)
@@ -107,7 +107,7 @@
 (global-set-key "\C-x\C-b" 'ibuffer)
 
 ;; ----------------------------------------------------------------------
-;; Scrolling
+;; scrolling.
 
 (setq-default
  scroll-step 1
@@ -118,7 +118,7 @@
  )
 
 ;; ----------------------------------------------------------------------
-;; search
+;; searching.
 
 (setq case-fold-search t)
 
@@ -134,12 +134,13 @@
 (setq default-major-mode 'text-mode)
 
 ;; ----------------------------------------------------------------------
-;; syntax highlighting
+;; syntax highlighting.
+
 (setq font-lock-maximum-decoration t)
 (global-font-lock-mode 1 t)
 
 ;; ----------------------------------------------------------------------
-;; highlight selected text
+;; highlight selected text.
 
 ;; 1/-1, when the mark is active, the region is highlighted.
 (transient-mark-mode 1)
@@ -153,26 +154,25 @@
 (pc-selection-mode 1)
 
 (when (eq window-system 'x)
-  (setq x-select-enable-clipboard t)    ; from Emacs 21.2.1 and newer
+  (setq x-select-enable-clipboard t)    ; for Emacs 21.2.1 and newer
   )
 
 ;; ----------------------------------------------------------------------
-;; line
-(if window-system
-    (progn
-      (global-hl-line-mode t)
-      (custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))
-      )
+;; highlighting current line.
+
+(when window-system
+  (custom-set-faces '(hl-line ((t (:inherit highlight :background "light yellow")))))
+  (global-hl-line-mode 1)
   )
 
 ;; ----------------------------------------------------------------------
-;; paren, brace
+;; paren, braces.
 
 (show-paren-mode 1) ; Parenthesis matching via highlighting.
 (setq show-paren-style (quote parenthesis))
 
 ;; ======================================================================
-;; Keyboard, mouse.
+;; keyboard, mouse.
 
 ;; cyrillic-jcuken  for 567 is :,.
 ;; russian-computer for 567 is %^&
@@ -181,14 +181,14 @@
 ;; (pc-bindings-mode) ; Myself define keybinding, see
 
 ;; ----------------------------------------------------------------------
-;; Completition
+;; completition.
 
 ;; partial-completion-mode cause bug in read-file-name with Emacs v22.3.1 (but not with v23.1).
 ;; read-file-name used in rgrep, so I disable partial-completion-mode.
 (partial-completion-mode -1) ; For example, M-x p-c-m expands to M-x partial-completion-mode
 
 ;; ----------------------------------------------------------------------
-;; Mouse
+;; mouse.
 
 ;; Scroll Bar gets dragged by mouse butn 1
 (global-set-key [vertical-scroll-bar down-mouse-1] 'scroll-bar-drag)
@@ -197,7 +197,7 @@
 (mouse-wheel-mode 1)
 
 ;; ----------------------------------------------------------------------
-;; Key Binding (Short-keys).
+;; key binding, short-keys.
 
 (global-set-key [home]    'beginning-of-line)
 (global-set-key [end]     'end-of-line)
@@ -236,7 +236,7 @@
 ;; (global-set-key [language-change] 'ignore)
 
 ;; ======================================================================
-;; Coding system, charset, locale, lang.
+;; coding system, charset, locale, lang.
 
 ;; Emacs 23.1 no longer need codepage-setup.
 (when (<= emacs-major-version 22)
@@ -316,7 +316,7 @@
 ;; STANDARD LIBRARIES
 
 ;; ----------------------------------------------------------------------
-;; dired
+;; dired.
 
 (setq dired-dwim-target t)
 ;; dangerous
@@ -325,14 +325,18 @@
 ;;  dired-recursive-deletes 'top)
 
 ;; ----------------------------------------------------------------------
-;; compression, archive
+;; compression, archive.
 
 (require 'jka-compr) ; Automatic decompression, hooks for tar-mode.
 (if (fboundp 'auto-compression-mode)
     (auto-compression-mode 1))
 
+(modify-coding-system-alist 'file "\\.\\(war\\|ear\\|sar\\|egg\\)\\'" 'no-conversion)
+
+(add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode))
+
 ;; ----------------------------------------------------------------------
-;; image
+;; image.
 
 (when (fboundp 'auto-image-file-mode)
   (auto-image-file-mode 1))
@@ -349,13 +353,14 @@
 (global-set-key (kbd "\e\eq")  'recentf-open-files)
 
 ;; ----------------------------------------------------------------------
-;; revert
+;; revert buffer.
+
 (global-set-key [f5]    'revert-buffer)
 (setq revert-without-query (quote (".*")))
 (setq auto-revert-interval 2)
 
 ;; ======================================================================
-;; Convenient
+;; convenient.
 
 (defun reglen()
   "Show region length."
@@ -363,7 +368,7 @@
   (message "%s" (- (region-end) (region-beginning))))
 
 ;; ----------------------------------------------------------------------
-;; minibuffer
+;; minibuffer.
 
 (require 'icomplete) ; Interactive completion in minibuffer.
 (icomplete-mode 1)
@@ -384,20 +389,13 @@
       grep-use-null-device t)
 
 ;; ----------------------------------------------------------------------
-;; Music
+;; music.
 (setq gnus-audio-au-player "winamp.exe"
       gnus-audio-directory "D:\\music"
       gnus-audio-wav-player "winamp.exe")
 
 ;; ----------------------------------------------------------------------
-;; archive
-
-(modify-coding-system-alist 'file "\\.\\(war\\|ear\\|sar\\|egg\\)\\'" 'no-conversion)
-
-(add-to-list 'auto-mode-alist '("\\.\\(war\\|ear\\|sar\\|egg\\)\\'" . archive-mode))
-
-;; ----------------------------------------------------------------------
-;; browser
+;; browser.
 
 (cond
  ((equal window-system 'w32)
@@ -405,11 +403,8 @@
  (t
   (setq browse-url-browser-function 'browse-url-mozilla)))
 
-;; ======================================================================
-;; TIME SETTING
-
 ;; ----------------------------------------------------------------------
-;; Time
+;; time.
 
 ;; Also useful such format:
 ;; (setq display-time-format " %H:%M %d-%m-%y ")
@@ -418,7 +413,8 @@
 (display-time)                          ; display-time-mode
 
 ;; ----------------------------------------------------------------------
-;; Calendar
+;; 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)))))
@@ -446,7 +442,7 @@
 (add-hook 'text-mode-hook 'turn-on-auto-fill)
 
 ;; ----------------------------------------------------------------------
-;; unknown
+;; unknown.
 
 ;; browse-url mailcrypt gnus message sendmail bbdb pilot bibtex eiffel-mode emacs-w3m
 ;; eudc filladapt hugs-mode mpg123 php-mode ps-print
@@ -466,12 +462,12 @@
 (put 'scroll-left      'disabled nil)
 
 ;; ======================================================================
-;; TEX
+;; TEX.
+
 (setq tex-run-command "initex")
 
-
 ;; ======================================================================
-;; AUC TeX
+;; AUC TeX.
 
 ;(add-hook 'LaTeX-mode-hook 'LaTeX-install-toolbar)
 ;; (setq TeX-parse-self t)             ; Enable parse on load.
@@ -505,10 +501,8 @@
 ;           "texify --tex-opt=--src --run-viewer --clean %s.tex"
 ;           'TeX-run-command nil t))))
 
-
 ;; ======================================================================
-;;
-;; Reftex activation (Reftex is included with Emacs 21.1)
+;; 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)
@@ -518,17 +512,15 @@
 ;; (add-hook 'latex-mode-hook 'turn-on-reftex)   ; with Emacs latex mode
 
 ;; ======================================================================
-;; PreviewLatex
+;; PreviewLatex.
 
 ;(load "preview-latex.el" nil t t)
 
 ;(add-hook 'LaTeX-mode-hook #'LaTeX-preview-setup)
 ;(autoload 'LaTeX-preview-setup "preview")
 
-
 ;; ======================================================================
-;;
-;; Info
+;; Info.
 
 (require 'info)
 (if (equal window-system 'w32)
@@ -539,13 +531,14 @@
       ))
 
 ;; ======================================================================
-;; man, woman
+;; man, woman.
+
 (require 'woman)
 (setq woman-use-own-frame nil)
 (setq woman-fill-frame t)
 
 ;; ======================================================================
-;; shell, sh, bash
+;; shell, sh, bash.
 
 ;; Setup Emacs to run bash as its primary shell.
 ;; (setq binary-process-input t)
@@ -567,7 +560,7 @@
   )
 
 ;; ======================================================================
-;; spell, ispall, aspell
+;; spell, ispall, aspell.
 
 (setq ispell-program-name "ispell")
 ;(setq ispell-dictionary "russianw"); default dictionary
@@ -589,7 +582,7 @@
 ;; GTD, PIM, organize, todo mode.
 
 ;; ----------------------------------------------------------------------
-;; org-mode
+;; org-mode.
 
 (if (>= emacs-major-version 22)
 (progn
@@ -617,7 +610,8 @@
       (setq org-agenda-files '("~/.gtd/todo.org")) ))
 
 ;; ----------------------------------------------------------------------
-;; remember-mode
+;; remember-mode.
+
 (if (featurep 'remember)
     (progn
       (setq remember-annotation-functions '(org-remember-annotation))
@@ -634,7 +628,7 @@
        ) ))
 
 ;; ======================================================================
-;; whitespace
+;; whitespaces.
 
 (setq-default show-trailing-whitespace t)
 (setq-default indicate-empty-lines t)
@@ -677,11 +671,9 @@
        ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t)
        ))))))
 
-;; ======================================================================
-;; communication
+;; ----------------------------------------------------------------------
+;; jabber.
 
-;; ----------------------------------------------------------------------
-;; jabber
 (when (featurep 'jabber)
   (setq
    jabber-history-enabled t
@@ -708,7 +700,7 @@
   )
 
 ;; ----------------------------------------------------------------------
-;; rcirc
+;; rcirc.
 
 ;; Turn on logging everything to a special buffer, for debugging.
 ;; (setq rcirc-debug-flag t)
@@ -719,7 +711,7 @@
   "/away message handler.")
 
 ;; ----------------------------------------------------------------------
-;; erc
+;; erc.
 
 (setq erc-server-coding-system 'utf-8)
 
@@ -765,19 +757,20 @@
   )
 
 ;; ----------------------------------------------------------------------
-;; psvn
+;; psvn.
+
 (setq svn-status-verbose t)
 (setq svn-status-hide-unmodified t)
 
 ;; ----------------------------------------------------------------------
-;; DVC
+;; DVC.
 
 (when (featurep 'dvc-emacs)
   (setq dvc-tips-enabled nil)
   )
 
 ;; ======================================================================
-;; devel, prog, programming
+;; devel, prog, programming.
 
 (add-to-list 'auto-mode-alist '("\\.cu$" . c-mode))
 
@@ -793,11 +786,12 @@
       '(c-mode-hook lisp-mode-hook))
 
 ;; ----------------------------------------------------------------------
-;; Diff, patch
+;; diff, patch.
+
 (setq diff-switches "-u")
 
 ;; ----------------------------------------------------------------------
-;; Indent
+;; indenting.
 
 (setq standard-indent 4)
 (setq c-basic-offset 4)
@@ -817,11 +811,13 @@
     (setq i (- i 4))))
 
 ;; ----------------------------------------------------------------------
-;; Diff.
+;; diff.
+
 (setq ediff-diff-options "")
 
 ;; ----------------------------------------------------------------------
 ;; *Compile*
+
 (setq compile-auto-highlight t
       compile-command "make ")
 ;; compilation window shall scroll down if not 0
@@ -837,12 +833,13 @@
 ;; (add-to-list 'compilation-mode-font-lock-keywords '("[ 	]\\(/F[oe][^ 	]+\\)" . 1))
 
 ;; ----------------------------------------------------------------------
-;; makefile, make
+;; makefile, make.
 
 (add-to-list 'auto-mode-alist '("\\(Makefile\\|Makefile\\..+\\)\\'" . makefile-gmake-mode))
 
 ;; ----------------------------------------------------------------------
-;; asm
+;; asm, assembler.
+
 ;; (setq-default asm-comment-char 59)
 (add-hook 'asm-mode-hook '(lambda () (setq comment-start "/*") (setq comment-end "*/")) t)
 
@@ -852,7 +849,7 @@
 ;; (add-hook 'asm-mode-hook '(lambda () (local-set-key ":" ":")))
 
 ;; ----------------------------------------------------------------------
-;; linker
+;; linker.
 
 (when (fboundp 'iar-linker-config-mode)
   (add-to-list 'auto-mode-alist '("\\.icf\\'" . iar-linker-config-mode))
@@ -862,11 +859,12 @@
   )
 
 ;; ----------------------------------------------------------------------
-;; lisp
+;; lisp.
+
 (setq list-command-history-max 256)
 
 ;; ----------------------------------------------------------------------
-;; C, c-mode, C++, c++-mode
+;; C, c-mode, C++, c++-mode.
 
 (setq c-echo-syntactic-information-p t)
 (add-hook 'c-mode-common-hook
@@ -924,7 +922,7 @@
 (setq c-default-style '((java-mode . "my") (c-mode . "my") (csharp-mode . "my") (c++-mode . "my") (objc-mode . "my") (other . "my")))
 
 ;; ----------------------------------------------------------------------
-;; bat file, batch
+;; bat file, batch.
 
 (when (fboundp 'bat-file-mode)
   (add-to-list 'auto-mode-alist '("\\.[bB][aA][tT]\\'" . bat-file-mode))
@@ -932,20 +930,21 @@
   )
 
 ;; ----------------------------------------------------------------------
-;; nsis-mode
+;; nsis-mode.
 
 (when (fboundp 'nsis-mode)
   (add-to-list 'auto-mode-alist '("\\.\\(nsi\\|nsh\\)\\'" . nsis-mode))
   )
 
 ;; ----------------------------------------------------------------------
-;; *csharp*, c-sharp
+;; *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*
+;; 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
@@ -985,9 +984,8 @@
 
 ;; (require 'jde)
 
-;; ********************
-;; ECB
-;; *******************
+;; ----------------------------------------------------------------------
+;; ECB.
 
 (setq ecb-tip-of-the-day nil)
 ;; (add-to-list 'load-path  "~/emacs/site/ecb-2.32")
@@ -996,17 +994,18 @@
 ;; (global-set-key (kbd "\e\eE") 'ecb-activate)
 
 ;; ----------------------------------------------------------------------
-;; html
+;; html.
 
 ;; ----------------------------------------------------------------------
-;; xml
+;; xml.
 
 ;; ----------------------------------------------------------------------
-;; psgml
+;; psgml.
+
 (setq sgml-set-face t)                  ; for highlighting in sgml
 
 ;; ======================================================================
-;; printing
+;; printing.
 
 ;; Use Notepad to print plain text files to the default Windows printer
 ;(setq lpr-command "notepad")
@@ -1017,7 +1016,7 @@
 ;;
 
 ;; ----------------------------------------------------------------------
-;; printing to file
+;; printing to file.
 
 ;(setq printer-name "~/myprint.txt")
 ;(setq ps-printer-name nil)
@@ -1046,12 +1045,12 @@
 ;           'TeX-run-command nil t))))
 
 ;; ----------------------------------------------------------------
-;; SQL
+;; SQL.
 
 (setq sql-password "")
 
 ;; ======================================================================
-;; Backup
+;; backuping.
 
 (setq
  backup-by-copying t                           ; don't clobber symlinks
@@ -1062,7 +1061,7 @@
  version-control t)                            ; use versioned backups
 
 ;; ======================================================================
-;; auto save
+;; auto save.
 
 (setq auto-save-default t)
 ;; If nil autosave to different than original to buffer file.
@@ -1071,7 +1070,7 @@
 (setq delete-auto-save-files t)
 
 ;; ======================================================================
-;; Setup user info.
+;; user info.
 
 (cd "~/")
 (setq user-full-name "Oleksandr Gavenko")