--- 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))))))
+