--- 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))
+ )