equal
deleted
inserted
replaced
5 ;; This file placed in public domain. |
5 ;; This file placed in public domain. |
6 ;; |
6 ;; |
7 ;; For load order see README. |
7 ;; For load order see README. |
8 |
8 |
9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
10 (message "turn on debugger during loading") |
10 (message "turn on debugger/profiler during loading") |
|
11 |
|
12 (when my-profiler-enabled |
|
13 (profiler-start 'cpu)) |
11 |
14 |
12 (defun my-debug (mode) |
15 (defun my-debug (mode) |
13 "With any prefix enables entering into a debuger and shows the |
16 "With any prefix enables entering into a debuger and shows the |
14 backtrace when problems occur. Also activates entering into |
17 backtrace when problems occur. Also activates entering into |
15 debugger on C-g. |
18 debugger on C-g. |
44 (load custom-file t) |
47 (load custom-file t) |
45 (load my-lisp-autogen t) |
48 (load my-lisp-autogen t) |
46 (load my-lisp-auth t) |
49 (load my-lisp-auth t) |
47 (load my-lisp-pre) |
50 (load my-lisp-pre) |
48 |
51 |
49 (when my-profiler-enabled |
|
50 (profiler-start 'cpu)) |
|
51 |
|
52 (my-lisp--load-usr-home) |
52 (my-lisp--load-usr-home) |
53 |
53 |
54 ;; (setq package-enable-at-startup t) |
54 ;; (setq package-enable-at-startup t) |
55 (when (fboundp 'package-initialize) |
55 (when (fboundp 'package-initialize) |
56 (package-initialize)) |
56 (package-initialize)) |
57 |
57 |
58 (load my-lisp-autoload t) |
58 (load my-lisp-autoload t) |
59 (load my-lisp-dotemacs t) |
59 (load my-lisp-dotemacs t) |
60 (load my-lisp-post t) |
60 (load my-lisp-post t) |
61 |
61 |
|
62 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
63 (message "turn off debugger/profiler after loading") |
|
64 |
|
65 (my-debug nil) |
|
66 |
62 (when my-profiler-enabled |
67 (when my-profiler-enabled |
63 (profiler-report) |
68 (profiler-report) |
64 (profiler-stop)) |
69 (profiler-stop)) |
65 |
|
66 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
67 (message "turn off debugger after loading") |
|
68 |
|
69 (my-debug nil) |
|