18 ;; Set the debug option to enable a backtrace when a problem occurs. |
18 ;; Set the debug option to enable a backtrace when a problem occurs. |
19 (setq debug-on-error nil) ; t/nil |
19 (setq debug-on-error nil) ; t/nil |
20 |
20 |
21 ;;; ---------------------------------------------------------------- |
21 ;;; ---------------------------------------------------------------- |
22 ;;; mode groups. |
22 ;;; mode groups. |
|
23 |
|
24 (defun my-modelist-to-hooklist (modes) |
|
25 "Convert list of MODES to list of hooks for these modes." |
|
26 (mapcar |
|
27 (lambda (mode) (intern (concat (symbol-name mode) "-hook"))) |
|
28 modes |
|
29 ) ) |
23 |
30 |
24 (defvar my-devel-mode-list |
31 (defvar my-devel-mode-list |
25 '( |
32 '( |
26 outline-mode |
33 outline-mode |
27 sh-mode script-mode |
34 sh-mode script-mode |
32 makefile-mode makefile-gmake-mode |
39 makefile-mode makefile-gmake-mode |
33 ) |
40 ) |
34 "List of development modes.") |
41 "List of development modes.") |
35 |
42 |
36 (defvar my-devel-mode-hook-list |
43 (defvar my-devel-mode-hook-list |
|
44 (my-modelist-to-hooklist my-devel-mode-list) |
|
45 "List of development mode hooks.") |
|
46 |
|
47 (defvar my-scroll-margin-mode-list |
37 '( |
48 '( |
38 outline-mode-hook |
49 vc-dir-mode |
39 sh-mode-hook script-mode-hook |
50 recentf-dialog-mode |
40 c-mode-hook c++-mode-hook java-mode-hook js-mode-hook |
51 org-agenda-grid-mode ; XXX for this item not worked! |
41 python-mode-hook |
52 log-view-mode |
42 makefile-mode-hook makefile-gmake-mode-hook |
53 diff-mode |
43 lisp-mode-hook emacs-lisp-mode-hook) |
54 dired-mode |
44 "List of development mode hooks.") |
55 compilation-mode |
|
56 ) |
|
57 "List of modes for enabling scroll margin.") |
45 |
58 |
46 (defvar my-scroll-margin-mode-hook-list |
59 (defvar my-scroll-margin-mode-hook-list |
47 '( |
60 (my-modelist-to-hooklist my-scroll-margin-mode-list) |
48 vc-dir-mode-hook |
|
49 recentf-dialog-mode-hook |
|
50 org-agenda-grid-mode-hook ; XXX for this item not worked! |
|
51 log-view-mode-hook |
|
52 diff-mode-hook |
|
53 dired-mode-hook |
|
54 compilation-mode-hook |
|
55 ) |
|
56 "List of mode hooks for enabling scroll margin.") |
61 "List of mode hooks for enabling scroll margin.") |
57 |
62 |
58 (defvar my-text-mode-list |
63 (defvar my-text-mode-list |
59 '(outline-mode text-mode) |
64 '(outline-mode text-mode) |
60 "List of text modes.") |
65 "List of text modes.") |
61 |
66 |
62 (defvar my-text-mode-hook-list |
67 (defvar my-text-mode-hook-list |
63 '(outline-mode-hook text-mode-hook) |
68 (my-modelist-to-hooklist my-text-mode-list) |
64 "List of text mode hooks.") |
69 "List of text mode hooks.") |
65 |
70 |
66 |
71 |
67 ;;; ---------------------------------------------------------------- |
72 ;;; ---------------------------------------------------------------- |
68 ;;; appearance. |
73 ;;; appearance. |