From 693c9d15e5f659f6acb545d1a9301620b8393f1d Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 31 Oct 2010 23:19:01 -0400 Subject: [PATCH] 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. --- lisp/ChangeLog | 7 ++++++- lisp/finder.el | 3 ++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 35f4b70736c..74bcfff9266 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,4 +1,9 @@ -2010-10-31 Chong Yidong +2010-11-01 Chong Yidong + + * 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 * 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 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 -- 2.39.5