equal
deleted
inserted
replaced
1 ;; -*- mode: lisp; coding: cp1251 -*- |
1 ;; -*- mode: lisp; coding: cp1251 -*- |
2 ;; |
2 ;; |
3 ;; Copyright (C) 2008 by Oleksandr Gavenko <gavenkoa@gmail.com> |
3 ;; Written by Oleksandr Gavenko <gavenkoa@gmail.com>, 2008-2010. |
4 ;; |
4 ;; |
5 ;; This file formed from parts and ideas from many sites/docs and |
5 ;; This file formed from parts and ideas from many sites/docs and |
6 ;; placed in public domain. |
6 ;; placed in public domain. |
7 ;; |
7 ;; |
8 ;; .emacs file for GNU Emacs. |
8 ;; .emacs file for GNU Emacs. |
851 |
851 |
852 (add-to-list 'auto-mode-alist '("\\.\\([sS]79\\|[sS]\\)\\'" . asm-mode)) |
852 (add-to-list 'auto-mode-alist '("\\.\\([sS]79\\|[sS]\\)\\'" . asm-mode)) |
853 |
853 |
854 ;; (add-hook 'asm-mode-hook '(lambda () (local-unset-key ":"))) |
854 ;; (add-hook 'asm-mode-hook '(lambda () (local-unset-key ":"))) |
855 ;; (add-hook 'asm-mode-hook '(lambda () (local-set-key ":" ":"))) |
855 ;; (add-hook 'asm-mode-hook '(lambda () (local-set-key ":" ":"))) |
|
856 |
|
857 ;; ---------------------------------------------------------------------- |
|
858 ;; linker |
|
859 |
|
860 (when (fboundp 'iar-linker-config-mode) |
|
861 (add-to-list 'auto-mode-alist '("\\.icf\\'" . iar-linker-config-mode)) |
|
862 ) |
|
863 (when (fboundp 'iar4-linker-config-mode) |
|
864 (add-to-list 'auto-mode-alist '("\\.xcl\\'" . iar4-linker-config-mode)) |
|
865 ) |
856 |
866 |
857 ;; ---------------------------------------------------------------------- |
867 ;; ---------------------------------------------------------------------- |
858 ;; lisp |
868 ;; lisp |
859 (setq list-command-history-max 256) |
869 (setq list-command-history-max 256) |
860 |
870 |
917 (setq c-default-style '((java-mode . "my") (c-mode . "my") (csharp-mode . "my") (c++-mode . "my") (objc-mode . "my") (other . "my"))) |
927 (setq c-default-style '((java-mode . "my") (c-mode . "my") (csharp-mode . "my") (c++-mode . "my") (objc-mode . "my") (other . "my"))) |
918 |
928 |
919 ;; ---------------------------------------------------------------------- |
929 ;; ---------------------------------------------------------------------- |
920 ;; bat file, batch |
930 ;; bat file, batch |
921 |
931 |
922 (when (featurep 'bat-mode) |
932 (when (fboundp 'bat-file-mode) |
923 (progn |
933 (add-to-list 'auto-mode-alist '("\\.[bB][aA][tT]\\'" . bat-file-mode)) |
924 (add-to-list 'auto-mode-alist '("\\.[bB][aA][tT]\\'" . bat-mode)) |
934 (add-to-list 'auto-mode-alist '("\\.[cC][mM][dD]\\'" . bat-file-mode)) |
925 (add-to-list 'auto-mode-alist '("\\.[cC][mM][dD]\\'" . bat-mode)) |
935 ) |
926 )) |
936 |
|
937 ;; ---------------------------------------------------------------------- |
|
938 ;; nsis-mode |
|
939 |
|
940 (when (fboundp 'nsis-mode) |
|
941 (add-to-list 'auto-mode-alist '("\\.\\(nsi\\|nsh\\)\\'" . nsis-mode)) |
|
942 ) |
927 |
943 |
928 ;; ---------------------------------------------------------------------- |
944 ;; ---------------------------------------------------------------------- |
929 ;; *csharp*, c-sharp |
945 ;; *csharp*, c-sharp |
930 |
946 |
931 (autoload 'csharp-mode "csharp-mode" "Major mode for editing C# code." t) |
947 (autoload 'csharp-mode "csharp-mode" "Major mode for editing C# code." t) |
1068 (let ( (mgs-list '("Welcome to emacs, the thermonuclear editor." |
1084 (let ( (mgs-list '("Welcome to emacs, the thermonuclear editor." |
1069 "You enter to Out Space. Emacs on." |
1085 "You enter to Out Space. Emacs on." |
1070 "Nice day for Emacsing!")) ) |
1086 "Nice day for Emacsing!")) ) |
1071 (message (nth (random (length mgs-list)) mgs-list))))) |
1087 (message (nth (random (length mgs-list)) mgs-list))))) |
1072 |
1088 |
|
1089 ;; Size of emacs area and its position. |
|
1090 (when window-system |
|
1091 ;; This size for 1280x1024 resolusion and 13pt font to occupy almost all screen. |
|
1092 (run-at-time (format "%d sec" 1) nil '(lambda () (set-frame-position (selected-frame) 1 1))) |
|
1093 (run-at-time (format "%d sec" 2) nil '(lambda () (set-frame-width (selected-frame) 150 t))) |
|
1094 (run-at-time (format "%d sec" 3) nil '(lambda () (set-frame-height (selected-frame) 60 t))) |
|
1095 ) |
|
1096 |
1073 ;; End loading... |
1097 ;; End loading... |