mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-30 09:00:31 -08:00
Don't add autoload for existing commands
This commit is contained in:
parent
18f04bfb99
commit
a2b23f8326
1 changed files with 4 additions and 2 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue