equal
deleted
inserted
replaced
100 (lambda (symb) (intern (concat (symbol-name symb) "-map"))) |
100 (lambda (symb) (intern (concat (symbol-name symb) "-map"))) |
101 ) |
101 ) |
102 |
102 |
103 (defvar my-devel-mode-list |
103 (defvar my-devel-mode-list |
104 '( |
104 '( |
105 sh-mode script-mode |
105 sh-mode script-mode tcl-mode |
106 c-mode c++-mode java-mode js-mode |
106 c-mode c++-mode java-mode js-mode |
107 python-mode |
107 python-mode |
108 lisp-mode |
108 lisp-mode |
109 emacs-lisp-mode |
109 emacs-lisp-mode |
110 makefile-mode makefile-gmake-mode |
110 makefile-mode makefile-gmake-mode |
111 nsis-mode |
111 nsis-mode |
|
112 bat-generic-mode |
112 html-mode |
113 html-mode |
113 ) |
114 ) |
114 "List of development modes.") |
115 "List of development modes.") |
115 |
116 |
116 (defvar my-devel-mode-hook-list |
117 (defvar my-devel-mode-hook-list |
649 (find-alternate-file file) |
650 (find-alternate-file file) |
650 (find-file file) |
651 (find-file file) |
651 ))) |
652 ))) |
652 (define-key dired-mode-map (kbd "<return>") |
653 (define-key dired-mode-map (kbd "<return>") |
653 'my-dired-enter-to-dir) |
654 'my-dired-enter-to-dir) |
|
655 |
|
656 ;; Make behaviour same as in GUI. |
|
657 (unless window-system |
|
658 (define-key dired-mode-map (kbd "DEL") 'my-dired-up-dir) |
|
659 (define-key dired-mode-map (kbd "RET") 'my-dired-enter-to-dir) |
|
660 ) |
654 |
661 |
655 (when (>= emacs-major-version 22) |
662 (when (>= emacs-major-version 22) |
656 ;; Enable 'a' command. |
663 ;; Enable 'a' command. |
657 (put 'dired-find-alternate-file 'disabled nil) |
664 (put 'dired-find-alternate-file 'disabled nil) |
658 ) |
665 ) |