# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1288581541 14400
# Node ID c93578464b09720377650abade3af6bc3312177f
# Parent  d3584b6b6247a72d2826260ffb6de7e69d1c048b
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 -r d3584b6b6247 -r c93578464b09 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Oct 31 23:16:48 2010 -0400
+++ b/lisp/ChangeLog	Sun Oct 31 23:19:01 2010 -0400
@@ -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 -r d3584b6b6247 -r c93578464b09 lisp/finder.el
--- a/lisp/finder.el	Sun Oct 31 23:16:48 2010 -0400
+++ b/lisp/finder.el	Sun Oct 31 23:19:01 2010 -0400
@@ -198,7 +198,8 @@
 	      (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