--- a/.emacs-my	Fri Aug 07 09:32:01 2009 +0300
+++ b/.emacs-my	Fri Aug 07 09:34:21 2009 +0300
@@ -27,9 +27,10 @@
 ;; Настройка внешнего вида редактора.
 ;; View.
 
-(menu-bar-mode -1)                     ; 1/-1
-(tool-bar-mode -1)                     ; 1/-1
-(tooltip-mode -1)                      ; 1/-1
+(menu-bar-mode -1)
+(tool-bar-mode -1)
+(tooltip-mode -1)
+(scroll-bar-mode 1)
 
 (if window-system
     ;; Для X-window и Win
@@ -75,10 +76,6 @@
 ;; ======================================================================
 ;; Standart settings
 
-;прикрепляет к каждому окну полоску прокрутки t/nil
-(scroll-bar-mode t)
-
-;; удаляем строку целиком
 (setq kill-whole-line t)
 
 ;; show column & line numbers in status bar
@@ -114,8 +111,6 @@
 ;; Scrolling
 
 (setq-default
- ;; 2 - default value
- next-screen-context-lines 2
  ;; The number of lines to try scrolling a window by when point moves out.
  scroll-step 1
  scroll-conservatively 100
@@ -139,12 +134,19 @@
 ;; ----------------------------------------------------------------------
 ;; highlight selected text
 
-(transient-mark-mode 1)        ; 1/-1, when the mark is active, the region is highlighted.
+;; 1/-1, when the mark is active, the region is highlighted.
+(transient-mark-mode 1)
 (delete-selection-mode 1)               ; 1/-1
 
 ;; Order of next item is important.
-(setq pc-select-selection-keys-only t)  ; To avoid some key bindings as F6, etc.
-(pc-selection-mode)
+(require 'pc-select)
+;; To avoid some key bindings as F6, etc. Must set before 'pc-selection-mode' invoke.
+(setq pc-select-selection-keys-only t)
+(pc-selection-mode 1)
+
+(when (eq window-system 'x)
+  (setq x-select-enable-clipboard t)    ; from Emacs 21.2.1 and newer
+  )
 
 ;; ----------------------------------------------------------------------
 ;; line
@@ -181,7 +183,7 @@
 ;; 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)
+(setq mouse-yank-at-point t)
 (mouse-wheel-mode 1)
 
 ;; ----------------------------------------------------------------------
@@ -305,10 +307,6 @@
 (if (fboundp 'auto-compression-mode)
     (auto-compression-mode 1))
 
-;; ======================================================================
-;; Save
-(setq auto-save-default nil)
-
 ;; ----------------------------------------------------------------------
 ;; *Recentf*
 
@@ -331,15 +329,16 @@
 
 ;; ----------------------------------------------------------------------
 ;; 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")))
+(icomplete-mode 1)
 
+(setq completion-ignored-extensions
+      '("CVS/" ".hg/" ".svn/" ".git/" ".bzr/"
+        ".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*
@@ -402,10 +401,13 @@
 ;; ======================================================================
 ;; *auto-fill*
 
+;; To enable/disable auto-fill mode type ESC M-f.
+
 (setq-default fill-column 78)
 
+;; By default used American convention - sentence and with two spaces. Change
+;; it to one space. Has affect on filling and M-a, M-e commands.
 (setq sentence-end-double-space nil)
-(global-set-key (kbd "\e\ef") 'auto-fill-mode)
 
 ;; Turn on auto-fill mode
 (add-hook 'html-mode-hook 'turn-on-auto-fill)
@@ -478,11 +480,9 @@
 ;; (require 'discography) ; variant of BibTeX mode for discographies.
 
 ;; ======================================================================
-;;
 ;; unNOVICEd commands...
 ;;
-;; The following commands are usually disabled by default.  Enable
-;; them...
+;; The following commands are usually disabled by default. Enable them...
 
 (put 'eval-expression  'disabled nil)
 (put 'downcase-region  'disabled nil)
@@ -498,9 +498,6 @@
 ;; ======================================================================
 ;; 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.
@@ -509,8 +506,6 @@
 ;(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:
@@ -700,9 +695,14 @@
   "Font for showing conflicts."
   :group 'basic-faces)
 
+(defvar my-devel-mode-list
+  '(sh-mode script-mode java-mode c-mode outline-mode text-mode
+            lisp-mode makefile-mode makefile-gmake-mode python-mode)
+  "List of development modes." )
+
 (add-hook 'font-lock-mode-hook (function (lambda ()
   (when (or
-         (member major-mode '(sh-mode script-mode java-mode c-mode outline-mode text-mode lisp-mode))
+         (member major-mode my-devel-mode-list)
          )
     (font-lock-add-keywords nil
      '(
@@ -1033,18 +1033,25 @@
 ;(setq cua-overwrite-cursor-color "red")
 ;(setq cua-read-only-cursor-color "green")
 
-
 ;; ======================================================================
 ;; Backup
 
 (setq
- ;; backup-by-copying t                           ; don't clobber symlinks
+ backup-by-copying t                           ; don't clobber symlinks
  backup-directory-alist '(("." . "~/.backup")) ; don't litter my fs tree
  delete-old-versions t                         ; delete excess backup versions silently
  kept-old-versions 1                           ; store first original version
  kept-new-versions 3                           ; store last 3 version
  version-control t)                            ; use versioned backups
 
+;; ======================================================================
+;; auto save
+
+(setq auto-save-default t)
+;; If nil autosave to different than original to buffer file.
+(setq auto-save-visited-file-name nil)
+;; Note: if you kill unsaved file auto save file not deleted.
+(setq delete-auto-save-files t)
 
 ;; ======================================================================
 ;; Setup user info.

--- a/INSTALL	Fri Aug 07 09:32:01 2009 +0300
+++ b/INSTALL	Fri Aug 07 09:34:21 2009 +0300
@@ -37,3 +37,13 @@
   ln -s /home/other-user/.emacs-post /home/user/.emacs-post
   ln -s /home/other-user/.el /home/sasha/.el
 
+* GTD (org-mode).
+
+In home dir create .gtd subdir with todo.org file. Put sinple content in top
+of them:
+
+  -*- coding: utf-8 -*-
+
+  #+STARTUP: overview
+  #+STARTUP: hidestars
+  #+ARCHIVE: %s_done::