--- a/.emacs-obsolete	Fri Apr 01 18:01:57 2016 +0300
+++ b/.emacs-obsolete	Fri Apr 01 18:21:16 2016 +0300
@@ -122,3 +122,80 @@
   (setq org-remember-store-without-prompt t)
   (org-remember-insinuate)
   ))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "highlight selected text")
+
+(cond
+ ((= emacs-major-version 21) (pc-selection-mode))
+ ((>= emacs-major-version 22) (pc-selection-mode 1)) )
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "keyboard, mouse")
+
+(setq my-russian-input-method 'russian-computer)
+(setq my-ukranian-input-method 'ukrainian-computer)
+(setq my-ipa-input-method 'ipa-x-sampa)
+(when (<= emacs-major-version 21)
+  (setq my-russian-input-method 'cyrillic-jcuken)
+  (setq my-ukranian-input-method 'cyrillic-jcuken))
+(setq default-input-method my-russian-input-method)
+
+(defun my-toggle-input-method (&optional arg)
+  (interactive "P")
+  (if (numberp arg)
+      (cond
+       ((eq arg 1)
+        (activate-input-method nil))
+       ((eq arg 2)
+        (activate-input-method 'my-russian-input-method))
+       ((eq arg 3)
+        (activate-input-method 'my-ukranian-input-method))
+       ((eq arg 4)
+        (activate-input-method 'greek))
+       ((eq arg 5)
+        (activate-input-method 'my-ipa-input-method))
+       ((eq arg 6)
+        (activate-input-method 'TeX)) )
+    (toggle-input-method arg)) )
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "dired")
+
+(when (>= emacs-major-version 22)
+  ;; Enable 'a' command.
+  (put 'dired-find-alternate-file 'disabled nil)
+  )
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "devel, programming")
+
+(when (>= emacs-major-version 22)
+  (add-to-list 'magic-mode-alist '(my--c++-header-file-p . c++-mode))
+  )
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "desktop")
+
+(when (>= emacs-major-version 22)
+  (require 'desktop)
+  (add-to-list 'desktop-path desktop-dirname)
+  (setq desktop-restore-frames nil)
+  (desktop-save-mode 1)
+  (setq
+   desktop-globals-to-save
+   (append
+    '((file-name-history . 100)
+      (compile-history . 100)
+      (command-history . 100)
+      (extended-command-history . 100)
+      (shell-command-history . 100)
+      (search-ring . 20)
+      (query-replace-history . 100)
+      (regexp-history . 100)
+      (grep-history . 100)
+      (minibuffer-history . 100)
+      tags-file-name
+      register-alist)
+    desktop-globals-to-save))
+  )