HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* progmodes/sql.el Version 3.3
[bpt/emacs.git]
/
lisp
/
finder.el
diff --git
a/lisp/finder.el
b/lisp/finder.el
index
655ad53
..
e07c6a2
100644
(file)
--- a/
lisp/finder.el
+++ b/
lisp/finder.el
@@
-1,7
+1,7
@@
;;; finder.el --- topic & keyword-based code finder
;;; finder.el --- topic & keyword-based code finder
-;; Copyright (C) 1992, 1997
, 1998, 1999, 2001, 2002, 2003, 2004, 2005
,
-;;
2006, 2007, 2008, 2009, 2010 Free Software Foundation,
Inc.
+;; Copyright (C) 1992, 1997
-1999, 2001-2013 Free Software Foundation
,
+;; Inc.
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
;; Created: 16 Jun 1992
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
;; Created: 16 Jun 1992
@@
-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))
@@
-231,6
+232,9
@@
from; the default is `load-path'."
(insert (autoload-rubric generated-finder-keywords-file
"keyword-to-package mapping" t))
(search-backward "
\f
")
(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 " ")
@@
-317,7
+321,7
@@
not `finder-known-keywords'."
(packages (gethash id finder-keywords-hash)))
(unless packages
(error "No packages matching key `%s'" key))
(packages (gethash id finder-keywords-hash)))
(unless packages
(error "No packages matching key `%s'" key))
- (package-
-list-packages
packages)))
+ (package-
show-package-list
packages)))
(define-button-type 'finder-xref 'action #'finder-goto-xref)
(define-button-type 'finder-xref 'action #'finder-goto-xref)
@@
-428,5
+432,4
@@
Delete the window and kill all Finder-related buffers."
\f
(provide 'finder)
\f
(provide 'finder)
-;; arch-tag: ec85ff49-8cb8-41f5-a63f-9131d53ce2c5
;;; finder.el ends here
;;; finder.el ends here