Fix to package name computation in Finder.

* lisp/finder.el (finder-compile-keywords): Don't use intern-soft,
since package names may not yet exist in the obarray.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 35f4b70736c60cee27703b53a7b424dc2962e04c..74bcfff9266501b524dc12ea8a2dd7d71c7d30b8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,9 @@
-2010-10-31  Chong Yidong  <cyd@stupidchicken.com>
+2010-11-01  Chong Yidong  <cyd@stupidchicken.com>
+
+       * finder.el (finder-compile-keywords): Don't use intern-soft,
+       since package names may not yet exist in the obarray.
+
+2010-11-01  Chong Yidong  <cyd@stupidchicken.com>
 
        * vc/vc-arch.el (vc-arch-checkin):
        * vc/vc-cvs.el (vc-cvs-checkin):

diff --git a/lisp/finder.el b/lisp/finder.el
index 8471edd57ff5460cdf5f7c623651310a455d7f91..655ad5383b03444741fb25b6394e0ace460b65fd 100644 (file)
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -198,7 +198,8 @@ from; the default is `load-path'."
              (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