HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* automated/tramp-tests.el (tramp-test29-utf8): Comment last test
[bpt/emacs.git]
/
lisp
/
finder.el
diff --git
a/lisp/finder.el
b/lisp/finder.el
index
3d988b4
..
c06c01c
100644
(file)
--- a/
lisp/finder.el
+++ b/
lisp/finder.el
@@
-206,7
+206,8
@@
from; the default is `load-path'."
(setq version (ignore-errors (version-to-list version)))
(setq entry (assq package package--builtins))
(cond ((null entry)
(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))
package--builtins))
((eq base-name package)
(setq desc (cdr entry))
@@
-224,13
+225,16
@@
from; the default is `load-path'."
(lambda (a b) (string< (symbol-name (car a))
(symbol-name (car b))))))
(lambda (a b) (string< (symbol-name (car a))
(symbol-name (car b))))))
- (
save-excursion
-
(find-file
generated-finder-keywords-file)
+ (
with-current-buffer
+
(find-file-noselect
generated-finder-keywords-file)
(setq buffer-undo-list t)
(erase-buffer)
(insert (autoload-rubric generated-finder-keywords-file
"keyword-to-package mapping" t))
(search-backward "
\f
")
(setq buffer-undo-list t)
(erase-buffer)
(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 " ")
(insert "(setq package--builtins '(\n")
(dolist (package package--builtins)
(insert " ")