236 ;;; ---------------------------------------------------------------- |
236 ;;; ---------------------------------------------------------------- |
237 (message "silent runing") |
237 (message "silent runing") |
238 |
238 |
239 ;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1 |
239 ;; (setq inhibit-splash-screen t) ; nonexist on 21.4.1 |
240 (setq inhibit-startup-message t) |
240 (setq inhibit-startup-message t) |
|
241 |
|
242 ;; ---------------------------------------------------------------- |
|
243 (message "Cygwin, MSYS") |
|
244 |
|
245 (when (eq window-system 'w32) |
|
246 (ignore-errors |
|
247 (require 'cygwin-mount) |
|
248 (cygwin-mount-activate) |
|
249 )) |
241 |
250 |
242 ;;; ---------------------------------------------------------------- |
251 ;;; ---------------------------------------------------------------- |
243 (message "whitespaces") |
252 (message "whitespaces") |
244 |
253 |
245 (setq default-indicate-empty-lines t) |
254 (setq default-indicate-empty-lines t) |
1044 ;; (setq mail-user-agent 'mh-e-user-agent) |
1053 ;; (setq mail-user-agent 'mh-e-user-agent) |
1045 |
1054 |
1046 ;;; ---------------------------------------------------------------- |
1055 ;;; ---------------------------------------------------------------- |
1047 (message "jabber") |
1056 (message "jabber") |
1048 |
1057 |
1049 (when (featurep 'jabber) |
1058 (autoload 'jabber-connect-all "jabber") |
1050 (setq |
1059 |
1051 jabber-history-enabled t |
1060 (setq |
1052 jabber-use-global-history nil |
1061 jabber-history-enabled t |
1053 jabber-backlog-number 40 |
1062 jabber-use-global-history nil |
1054 jabber-backlog-days 30 |
1063 jabber-backlog-number 40 |
1055 jabber-alert-presence-message-function (lambda (who oldstatus newstatus statustext) nil) |
1064 jabber-backlog-days 30 |
1056 ) |
1065 jabber-alert-presence-message-function (lambda (who oldstatus newstatus statustext) nil) |
1057 ;; Redefine standard binding for sending message form RET to C-RET. |
1066 ) |
1058 (define-key jabber-chat-mode-map (kbd "RET") 'newline) |
1067 |
1059 (define-key jabber-chat-mode-map [C-return] 'jabber-chat-buffer-send) |
1068 (eval-after-load 'jabber |
1060 ) |
1069 '(progn |
|
1070 ;; Redefine standard binding for sending message form RET to C-RET. |
|
1071 (define-key jabber-chat-mode-map (kbd "RET") 'newline) |
|
1072 (define-key jabber-chat-mode-map [C-return] 'jabber-chat-buffer-send) |
|
1073 ;; fsm used in emacs jabber |
|
1074 (when (featurep 'fsm) |
|
1075 (setq fsm-debug nil) ; Disable *fsm-debug* buffer. |
|
1076 ) |
|
1077 ;; Handle Emacs exit. |
|
1078 (add-hook 'kill-emacs-hook 'jabber-disconnect) |
|
1079 )) |
1061 |
1080 |
1062 (setq my-chat-prompt "[%t] %n>\n") |
1081 (setq my-chat-prompt "[%t] %n>\n") |
1063 (when (featurep 'jabber) |
1082 (setq |
1064 (setq |
1083 jabber-chat-foreign-prompt-format my-chat-prompt |
1065 jabber-chat-foreign-prompt-format my-chat-prompt |
1084 jabber-chat-local-prompt-format my-chat-prompt |
1066 jabber-chat-local-prompt-format my-chat-prompt |
1085 jabber-groupchat-prompt-format my-chat-prompt |
1067 jabber-groupchat-prompt-format my-chat-prompt |
1086 jabber-muc-private-foreign-prompt-format "[%t] %g/%n>\n" |
1068 jabber-muc-private-foreign-prompt-format "[%t] %g/%n>\n" |
1087 ) |
1069 ) |
1088 |
1070 ) |
1089 (let ( (mgs-list '("Я тутачки, а где Вы меня ожидали?" |
1071 |
1090 "Software Development == Church Development. Step 1. Build it. Step 2. Pray." |
1072 (when (featurep 'jabber) |
1091 "А любит Б, Б любит С, что делать A? Найти другую Б!")) ) |
1073 (let ( (mgs-list '("Я тутачки, а где Вы меня ожидали?" |
1092 (random t) |
1074 "Software Development == Church Development. Step 1. Build it. Step 2. Pray." |
1093 (setq jabber-default-show (nth (random (length mgs-list)) mgs-list)) |
1075 "А любит Б, Б любит С, что делать A? Найти другую Б!")) ) |
1094 (setq jabber-default-status (nth (random (length mgs-list)) mgs-list)) |
1076 (random t) |
|
1077 (setq jabber-default-show (nth (random (length mgs-list)) mgs-list)) |
|
1078 (setq jabber-default-status (nth (random (length mgs-list)) mgs-list)) |
|
1079 ) ) |
|
1080 |
|
1081 ;; fsm used in emacs jabber |
|
1082 (when (featurep 'fsm) |
|
1083 (setq fsm-debug nil) ; Disable *fsm-debug* buffer. |
|
1084 ) |
1095 ) |
1085 |
1096 |
1086 (defvar my-jabber-users nil |
1097 (defvar my-jabber-users nil |
1087 "Assoc list of jabber user group. Keys are strings, values are lists of JIDs.") |
1098 "Assoc list of jabber user group. Keys are strings, values are lists of JIDs.") |
1088 |
1099 |
1313 (message "TAGS, etags, ctags, GNU GLOBAL") |
1321 (message "TAGS, etags, ctags, GNU GLOBAL") |
1314 |
1322 |
1315 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to |
1323 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to |
1316 ;; use. |
1324 ;; use. |
1317 |
1325 |
|
1326 (ignore-errors |
|
1327 (require 'etags-table) |
|
1328 (setq etags-table-search-up-depth 8) |
|
1329 (require 'etags-select) |
|
1330 (global-set-key "\M-." 'etags-select-find-tag) |
|
1331 ) |
|
1332 |
1318 (setq tags-add-tables t) |
1333 (setq tags-add-tables t) |
1319 |
|
1320 (when (featurep 'etags-table) |
|
1321 (setq etags-table-search-up-depth 8) |
|
1322 (when (featurep 'etags-select) |
|
1323 (global-set-key "\M-." 'etags-select-find-tag) |
|
1324 ) |
|
1325 ) |
|
1326 |
|
1327 (global-set-key "\M-\r" 'complete-tag) |
1334 (global-set-key "\M-\r" 'complete-tag) |
1328 |
1335 |
1329 ;;; ---------------------------------------------------------------- |
1336 ;;; ---------------------------------------------------------------- |
1330 (message "CEDET, semantic") |
1337 (message "CEDET, semantic") |
1331 |
1338 |