equal
deleted
inserted
replaced
26 (setq custom-file (concat user-emacs-directory ".emacs-custom")) |
26 (setq custom-file (concat user-emacs-directory ".emacs-custom")) |
27 (setq save-place-file (concat user-emacs-directory ".emacs-places")) |
27 (setq save-place-file (concat user-emacs-directory ".emacs-places")) |
28 (setq bookmark-default-file (concat user-emacs-directory "bookmarks")) |
28 (setq bookmark-default-file (concat user-emacs-directory "bookmarks")) |
29 (setq ido-save-directory-list-file (concat user-emacs-directory ".ido.last")) |
29 (setq ido-save-directory-list-file (concat user-emacs-directory ".ido.last")) |
30 |
30 |
31 (defun my-load.add-my-loadpaths () |
31 (defun my-load--load-all () |
|
32 "Load everything to help during byte compilation to spot errors |
|
33 better. Not for regular use but for the Makefile." |
|
34 (if (file-exists-p my-lisp-pre) |
|
35 (load my-lisp-pre) |
|
36 (load ".emacs-pre")) |
32 (when (file-directory-p my-usr-lisp-dir) |
37 (when (file-directory-p my-usr-lisp-dir) |
33 (add-to-list 'load-path my-usr-lisp-dir) |
38 (add-to-list 'load-path my-usr-lisp-dir) |
34 (let ((default-directory my-usr-lisp-dir)) |
39 (let ((default-directory my-usr-lisp-dir)) |
35 (normal-top-level-add-subdirs-to-load-path)))) |
40 (normal-top-level-add-subdirs-to-load-path)))) |
36 |
41 |