equal
deleted
inserted
replaced
40 ".class" "~" ".aux" |
40 ".class" "~" ".aux" |
41 ".o" ".obj" ".map" ".lib" ".lo" ".la" ".a" ".bin" ".exe" |
41 ".o" ".obj" ".map" ".lib" ".lo" ".la" ".a" ".bin" ".exe" |
42 ;; Place dir at end to appear at the start of completion-ignored-extensions. |
42 ;; Place dir at end to appear at the start of completion-ignored-extensions. |
43 "CVS/" ".hg/" ".svn/" ".git/" ".bzr/" |
43 "CVS/" ".hg/" ".svn/" ".git/" ".bzr/" |
44 ) ) |
44 ) ) |
|
45 |
|
46 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
47 |
|
48 (defun my-find-subdirs (dir) |
|
49 (if (file-directory-p dir) |
|
50 (cons dir (apply 'append (mapcar 'my-find-subdirs (directory-files dir t "^[^.]")) ) ) |
|
51 )) |
|
52 (defun my-add-subdirs-to-load-path (dir) |
|
53 (mapc |
|
54 (lambda (d) |
|
55 (add-to-list 'load-path d t) |
|
56 (message "Load-path updated with: %s" d) |
|
57 ) |
|
58 (my-find-subdirs dir)) ) |
|
59 |
|
60 (my-add-subdirs-to-load-path my-usr-lisp-dir) |
|
61 (my-add-subdirs-to-load-path my-lisp-dir) |