mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

Don't require 'autoload.

Browse Source 
(custom-make-dependencies):  Handle :version also for autoloaded
options.
This commit is contained in:
Markus Rost 2002-11-11 15:09:13 +00:00
parent ed0d58c91f
commit 052b70090a
1 changed files with 2 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/cus-dep.el
View File

@ -29,7 +29,6 @@
(eval-when-compile (require 'cl))
(require 'widget)
(require 'cus-face)
(require 'autoload)
(defun custom-make-dependencies ()
"Batch function to extract custom dependencies from .el files.
@ -46,8 +45,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(file-name-sans-extension
(file-name-nondirectory f)))
preloaded-file-list) t)
"\\.el\\'"))
is-autoloaded)
"\\.el\\'")))
(dolist (file files)
(when (and (file-exists-p file)
;; Ignore files that are preloaded.
@ -66,17 +64,11 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(condition-case nil
(while (re-search-forward
"^(def\\(custom\\|face\\|group\\)" nil t)
(setq is-autoloaded nil)
(beginning-of-line)
(save-excursion
(forward-line -1)
(if (looking-at generate-autoload-cookie)
(setq is-autoloaded t)))
(let ((expr (read (current-buffer))))
(condition-case nil
(let ((custom-dont-initialize t))
(eval expr)
(put (nth 1 expr) 'custom-autoloaded is-autoloaded)
(put (nth 1 expr) 'custom-where name))
(error nil))))
(error nil))))))))
@ -140,12 +132,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
where)
(when version
(setq where (get symbol 'custom-where))
(when (and where
;; Don't bother to do anything if it's
;; autoloaded because we will have all
;; this info when emacs is running
;; anyway.
(not (get symbol 'custom-autoloaded)))
(when where
(insert "(custom-put-if-not '" (symbol-name symbol)
" 'custom-version ")
(prin1 version (current-buffer))