120 ;; ("note" ?n "* %?\n" ,my-org-agenda-note-file) |
120 ;; ("note" ?n "* %?\n" ,my-org-agenda-note-file) |
121 )) |
121 )) |
122 (setq org-remember-store-without-prompt t) |
122 (setq org-remember-store-without-prompt t) |
123 (org-remember-insinuate) |
123 (org-remember-insinuate) |
124 )) |
124 )) |
|
125 |
|
126 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
127 (message "highlight selected text") |
|
128 |
|
129 (cond |
|
130 ((= emacs-major-version 21) (pc-selection-mode)) |
|
131 ((>= emacs-major-version 22) (pc-selection-mode 1)) ) |
|
132 |
|
133 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
134 (message "keyboard, mouse") |
|
135 |
|
136 (setq my-russian-input-method 'russian-computer) |
|
137 (setq my-ukranian-input-method 'ukrainian-computer) |
|
138 (setq my-ipa-input-method 'ipa-x-sampa) |
|
139 (when (<= emacs-major-version 21) |
|
140 (setq my-russian-input-method 'cyrillic-jcuken) |
|
141 (setq my-ukranian-input-method 'cyrillic-jcuken)) |
|
142 (setq default-input-method my-russian-input-method) |
|
143 |
|
144 (defun my-toggle-input-method (&optional arg) |
|
145 (interactive "P") |
|
146 (if (numberp arg) |
|
147 (cond |
|
148 ((eq arg 1) |
|
149 (activate-input-method nil)) |
|
150 ((eq arg 2) |
|
151 (activate-input-method 'my-russian-input-method)) |
|
152 ((eq arg 3) |
|
153 (activate-input-method 'my-ukranian-input-method)) |
|
154 ((eq arg 4) |
|
155 (activate-input-method 'greek)) |
|
156 ((eq arg 5) |
|
157 (activate-input-method 'my-ipa-input-method)) |
|
158 ((eq arg 6) |
|
159 (activate-input-method 'TeX)) ) |
|
160 (toggle-input-method arg)) ) |
|
161 |
|
162 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
163 (message "dired") |
|
164 |
|
165 (when (>= emacs-major-version 22) |
|
166 ;; Enable 'a' command. |
|
167 (put 'dired-find-alternate-file 'disabled nil) |
|
168 ) |
|
169 |
|
170 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
171 (message "devel, programming") |
|
172 |
|
173 (when (>= emacs-major-version 22) |
|
174 (add-to-list 'magic-mode-alist '(my--c++-header-file-p . c++-mode)) |
|
175 ) |
|
176 |
|
177 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
178 (message "desktop") |
|
179 |
|
180 (when (>= emacs-major-version 22) |
|
181 (require 'desktop) |
|
182 (add-to-list 'desktop-path desktop-dirname) |
|
183 (setq desktop-restore-frames nil) |
|
184 (desktop-save-mode 1) |
|
185 (setq |
|
186 desktop-globals-to-save |
|
187 (append |
|
188 '((file-name-history . 100) |
|
189 (compile-history . 100) |
|
190 (command-history . 100) |
|
191 (extended-command-history . 100) |
|
192 (shell-command-history . 100) |
|
193 (search-ring . 20) |
|
194 (query-replace-history . 100) |
|
195 (regexp-history . 100) |
|
196 (grep-history . 100) |
|
197 (minibuffer-history . 100) |
|
198 tags-file-name |
|
199 register-alist) |
|
200 desktop-globals-to-save)) |
|
201 ) |