1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00

Merge pull request from YoungFrog/fixautoloads

Don't add autoload for existing commands
GitHub-reference: https://github.com/jwiegley/use-package/issues/138
This commit is contained in:
John Wiegley 2014-12-17 15:53:42 -06:00
commit f8db1f1740

View file

@ -450,8 +450,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)