[Emacs-diffs] /srv/bzr/emacs/trunk r102195: Fix to package name computation in Finder.

[Chong Yidong]

------------------------------------------------------------
revno: 102195
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2010-10-31 23:19:01 -0400
message:
  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.
modified:
  lisp/ChangeLog
  lisp/finder.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-01 03:16:48 +0000
+++ b/lisp/ChangeLog    2010-11-01 03:19:01 +0000
@@ -1,4 +1,9 @@
-2010-10-31  Chong Yidong  <address@hidden>
+2010-11-01  Chong Yidong  <address@hidden>
+
+       * 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  <address@hidden>
 
        * vc/vc-arch.el (vc-arch-checkin):
        * vc/vc-cvs.el (vc-cvs-checkin):

=== modified file 'lisp/finder.el'
--- a/lisp/finder.el    2010-09-25 12:04:35 +0000
+++ b/lisp/finder.el    2010-11-01 03:19:01 +0000
@@ -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