Преглед изворни кода

show message on autoload defined

pull/1/head
10sr пре 12 година
родитељ
комит
5fa25097db
1 измењених фајлова са 6 додато и 2 уклоњено
  1. +6
    -2
      emacs.el

+ 6
- 2
emacs.el Прегледај датотеку

@@ -104,13 +104,17 @@ found, otherwise returns nil."
(and libpath
`(progn
,@(mapcar (lambda (f)
(or (fboundp f)
(unless (fboundp f)
(progn
(message "Autoloaded function `%S' defined (%s)"
f
libpath)
`(autoload (quote ,f)
,libname
,(concat "Autoloaded function defined in \""
libpath
"\".")
t)))
t))))
(or (eval functions)
`(,(eval feature))))
(eval-after-load ,feature


Loading…
Откажи
Сачувај