Mercurial > emacs
changeset 111292:c93578464b09
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.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 31 Oct 2010 23:19:01 -0400 |
| parents | d3584b6b6247 |
| children | b486cbc37541 |
| files | lisp/ChangeLog lisp/finder.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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