summaryrefslogtreecommitdiff
path: root/lisp/finder.el
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2010-10-31 23:19:01 -0400
committerChong Yidong <cyd@stupidchicken.com>2010-10-31 23:19:01 -0400
commit693c9d15e5f659f6acb545d1a9301620b8393f1d (patch)
treedbf68b2213f1ee864bf9a4c00308485f5db5122e /lisp/finder.el
parent4624de78377ea0a3c434b3bac2debe7a8c6a5bb1 (diff)
downloademacs-693c9d15e5f659f6acb545d1a9301620b8393f1d.tar.gz
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.
Diffstat (limited to 'lisp/finder.el')
-rw-r--r--lisp/finder.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/finder.el b/lisp/finder.el
index 8471edd57ff..655ad5383b0 100644
--- 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