From: Chong Yidong Date: Mon, 1 Nov 2010 03:19:01 +0000 (-0400) Subject: Fix to package name computation in Finder. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~422^2~13 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=693c9d15e5f659f6acb545d1a9301620b8393f1d;p=emacs.git 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 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