diff -r 504c216e8d21 -r 19c7b3be9b3a .emacs-defs --- a/.emacs-defs Sun Mar 01 20:28:04 2015 +0200 +++ b/.emacs-defs Sat Mar 07 00:05:07 2015 +0200 @@ -37,3 +37,15 @@ (let ((default-directory my-usr-lisp-dir)) (normal-top-level-add-subdirs-to-load-path)))) +(defmacro my--eval-after-load (feature &rest forms) + `(,(if (or (not (boundp 'byte-compile-current-file)) + (not byte-compile-current-file) + (if (symbolp feature) + (require feature nil :no-error) + (load feature :no-message :no-error))) + 'progn + (message "my--eval-after-load: cannot find %s" feature) + 'with-no-warnings) + (eval-after-load ',feature + `(funcall (function ,(lambda () ,@forms)))))) +