;;; 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-2011 Free Software Foundation, Inc.
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
;; Created: 16 Jun 1992
(setq summary (lm-synopsis)
keywords (mapcar 'intern (lm-keywords-list))
package (or package-override
- (intern-soft (lm-header "package"))
+ (let ((str (lm-header "package")))
+ (if str (intern str)))
base-name)
version (lm-header "version")))
(when summary
help-echo finder-help-echo))))
(defun finder-unknown-keywords ()
- "Return an alist of unknown keywords and number of their occurences.
+ "Return an alist of unknown keywords and number of their occurrences.
Unknown keywords are those present in `finder-keywords-hash' but
not `finder-known-keywords'."
(let (alist)
(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)
\f
(provide 'finder)
-;; arch-tag: ec85ff49-8cb8-41f5-a63f-9131d53ce2c5
;;; finder.el ends here