equal
deleted
inserted
replaced
36 (add-to-list 'load-path my-usr-lisp-dir) |
36 (add-to-list 'load-path my-usr-lisp-dir) |
37 (let ((default-directory my-usr-lisp-dir)) |
37 (let ((default-directory my-usr-lisp-dir)) |
38 (normal-top-level-add-subdirs-to-load-path)))) |
38 (normal-top-level-add-subdirs-to-load-path)))) |
39 |
39 |
40 (defmacro my--eval-after-load (feature &rest forms) |
40 (defmacro my--eval-after-load (feature &rest forms) |
|
41 (declare (indent defun)) |
41 `(,(if (or (not (boundp 'byte-compile-current-file)) |
42 `(,(if (or (not (boundp 'byte-compile-current-file)) |
42 (not byte-compile-current-file) |
43 (not byte-compile-current-file) |
43 (if (symbolp feature) |
44 (if (symbolp feature) |
44 (require feature nil :no-error) |
45 (require feature nil :no-error) |
45 (load feature :no-message :no-error))) |
46 (load feature :no-message :no-error))) |