(autoload 'autoload-rubric "autoload")
-(defun set-generated-finder-keywords-file (file)
- "Set value of `generated-finder-keywords-file' from FILE.
-
-On systems other than MS-Windows, just sets the value
-of `generated-finder-keywords-file'. On MS-Windows, converts
-/d/foo/bar form passed by MSYS Make into d:/foo/bar that Emacs
-can grok. This function is called from lisp/Makefile."
- (when (and (eq system-type 'windows-nt)
- (string-match "\\`/[a-zA-Z]/" file))
- (setq file (concat (substring file 1 2) ":" (substring file 2))))
- (setq generated-finder-keywords-file file))
-
(defvar finder--builtins-alist
'(("calc" . calc)
("ede" . ede)
(setq version (ignore-errors (version-to-list version)))
(setq entry (assq package package--builtins))
(cond ((null entry)
- (push (cons package (vector version nil summary))
+ (push (cons package
+ (package-make-builtin version summary))
package--builtins))
((eq base-name package)
(setq desc (cdr entry))
(insert (autoload-rubric generated-finder-keywords-file
"keyword-to-package mapping" t))
(search-backward "\f")
+ ;; FIXME: Now that we have package--builtin-versions, package--builtins is
+ ;; only needed to get the list of unversioned packages and to get the
+ ;; summary description of each package.
(insert "(setq package--builtins '(\n")
(dolist (package package--builtins)
(insert " ")