211 |
211 |
212 ;; frames, windows manipulation, switch buffers |
212 ;; frames, windows manipulation, switch buffers |
213 (global-set-key [?\C-x right] 'next-buffer) |
213 (global-set-key [?\C-x right] 'next-buffer) |
214 (global-set-key [?\C-x left] 'previous-buffer) |
214 (global-set-key [?\C-x left] 'previous-buffer) |
215 |
215 |
216 (global-set-key (kbd "C-x C-d") 'dired) |
216 ;; I usually mistype "C-x C-f" to "C-x d" or "C-x C-d", so always use find-file, |
|
217 ;; because when file if directory find-file load dired, if regular file open it. |
|
218 (global-set-key (kbd "C-x C-f") 'find-file) |
|
219 (global-set-key (kbd "C-x C-d") 'find-file) |
|
220 (global-set-key (kbd "C-x d") 'find-file) |
217 |
221 |
218 (global-set-key (kbd "\e\eg") 'goto-line) |
222 (global-set-key (kbd "\e\eg") 'goto-line) |
219 (global-set-key (kbd "\e\er") 'query-replace-regexp) |
223 (global-set-key (kbd "\e\er") 'query-replace-regexp) |
220 |
224 |
221 ;; Disable C-z, it ugly. |
225 ;; Disable C-z, it ugly. |
848 ;; My funny error messages. |
852 ;; My funny error messages. |
849 ;; XXX нужно реализовать через hook. |
853 ;; XXX нужно реализовать через hook. |
850 (require 'compile) |
854 (require 'compile) |
851 (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4)) |
855 (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4)) |
852 (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2)) |
856 (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2)) |
|
857 (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler |
853 ;; (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ ]+\\)" . 1)) |
858 ;; (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ ]+\\)" . 1)) |
854 ;; (add-to-list 'compilation-mode-font-lock-keywords '("[ ]\\(/F[oe][^ ]+\\)" . 1)) |
859 ;; (add-to-list 'compilation-mode-font-lock-keywords '("[ ]\\(/F[oe][^ ]+\\)" . 1)) |
855 |
860 |
856 ;; ---------------------------------------------------------------------- |
861 ;; ---------------------------------------------------------------------- |
857 ;; asm |
862 ;; asm |
858 ;; (setq-default asm-comment-char 59) |
863 ;; (setq-default asm-comment-char 59) |
859 (add-hook 'asm-mode-hook '(lambda () (setq comment-start "/*") (setq comment-end "*/")) t) |
864 (add-hook 'asm-mode-hook '(lambda () (setq comment-start "/*") (setq comment-end "*/")) t) |
|
865 |
|
866 (add-to-list 'auto-mode-alist '("\\.\\([sS]79\\|[sS]\\)\\'" . asm-mode)) |
860 |
867 |
861 ;; (add-hook 'asm-mode-hook '(lambda () (local-unset-key ":"))) |
868 ;; (add-hook 'asm-mode-hook '(lambda () (local-unset-key ":"))) |
862 ;; (add-hook 'asm-mode-hook '(lambda () (local-set-key ":" ":"))) |
869 ;; (add-hook 'asm-mode-hook '(lambda () (local-set-key ":" ":"))) |
863 |
870 |
864 ;; ---------------------------------------------------------------------- |
871 ;; ---------------------------------------------------------------------- |