Don't add autoload for existing commands

2014-12-11 08:42:53 +01:00
parent 18f04bfb99
commit a2b23f8326
1 changed files with 4 additions and 2 deletions
--- a/lisp/use-package/use-package.el
+++ b/lisp/use-package/use-package.el
@@ -434,8 +434,10 @@ For full documentation. please see commentary.
                   (not (use-package-plist-get args :demand)))
              (let (form)
                (mapc #'(lambda (command)
-                          (push `(autoload (function ,command)
-                                   ,name-string nil t) form))
+                          (push `(unless (fboundp (quote ,command))
+                                   (autoload (function ,command)
+                                     ,name-string nil t))
+                                form))
                      commands)

                `(when ,(or predicate t)