107 ;; *Text* |
107 ;; *Text* |
108 (setq default-major-mode 'text-mode) |
108 (setq default-major-mode 'text-mode) |
109 (add-hook 'text-mode-hook 'turn-on-auto-fill) |
109 (add-hook 'text-mode-hook 'turn-on-auto-fill) |
110 |
110 |
111 ;; ---------------------------------------------------------------------- |
111 ;; ---------------------------------------------------------------------- |
112 ;; Show marked text |
112 ;; syntax highlighting |
113 (setq transient-mark-mode t) |
|
114 (setq font-lock-maximum-decoration t) |
113 (setq font-lock-maximum-decoration t) |
115 ;; syntax highlighting |
|
116 (global-font-lock-mode 1 t) |
114 (global-font-lock-mode 1 t) |
|
115 |
|
116 ;; ---------------------------------------------------------------------- |
|
117 ;; selecting |
|
118 |
|
119 (transient-mark-mode 1) ; 1/-1, when the mark is active, the region is highlighted. |
|
120 (delete-selection-mode 1) ; 1/-1 |
|
121 |
|
122 ;; Order of next item is important. |
|
123 (setq pc-select-selection-keys-only t) ; To avoid some key bindings as F6, etc. |
|
124 (pc-selection-mode) |
117 |
125 |
118 ;; ---------------------------------------------------------------------- |
126 ;; ---------------------------------------------------------------------- |
119 ;; Line |
127 ;; Line |
120 (if window-system |
128 (if window-system |
121 (progn |
129 (progn |
130 (show-paren-mode 1) ; Parenthesis matching via highlighting. |
138 (show-paren-mode 1) ; Parenthesis matching via highlighting. |
131 ;; (setq show-paren-style 'expression) ; выделять все выражение в скобках |
139 ;; (setq show-paren-style 'expression) ; выделять все выражение в скобках |
132 (setq show-paren-style (quote parenthesis)) |
140 (setq show-paren-style (quote parenthesis)) |
133 |
141 |
134 ;; ====================================================================== |
142 ;; ====================================================================== |
135 ;; Keyboard, mouse and selection |
143 ;; Keyboard, mouse. |
136 |
144 |
137 ;; cyrillic-jcuken for 567 is :,. |
145 ;; cyrillic-jcuken for 567 is :,. |
138 ;; russian-computer for 567 is %^& |
146 ;; russian-computer for 567 is %^& |
139 (setq default-input-method 'russian-computer) |
147 (setq default-input-method 'russian-computer) |
140 |
148 |
141 ;; (pc-bindings-mode) ; Myself define keybinding, see |
149 ;; (pc-bindings-mode) ; Myself define keybinding, see |
142 ;; Настройка выделения "как в Windows" |
|
143 (setq pc-select-selection-keys-only t) ; to avoid some key bindings as F6, etc |
|
144 (transient-mark-mode t) ; t/nil, when the mark is active, the region is highlighted |
|
145 (delete-selection-mode t) ; t/nil |
|
146 |
150 |
147 ;; ---------------------------------------------------------------------- |
151 ;; ---------------------------------------------------------------------- |
148 ;; Completition |
152 ;; Completition |
149 (partial-completion-mode t) ; For example, M-x p-c-m expands to M-x partial-completion-mode |
153 (partial-completion-mode t) ; For example, M-x p-c-m expands to M-x partial-completion-mode |
150 |
154 |