From f6b80ef5a581dbe9002cd9fdb9cb60c282b42385 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gerd=20M=C3=B6llmann?= Date: Sat, 15 Oct 2022 14:16:27 +0200 Subject: [PATCH] Blabla * src/lread.c (Fintern): Remove comment. * src/pkg.c (pkg_emacs_intern_soft): Don't assume *package* if a vector was passed in for a package. Assert instead elsewhere. --- src/lread.c | 1 - src/pkg.c | 5 ----- 2 files changed, 6 deletions(-) diff --git a/src/lread.c b/src/lread.c index ba398122bd7..a2bafec2917 100644 --- a/src/lread.c +++ b/src/lread.c @@ -4785,7 +4785,6 @@ A second optional argument specifies the obarray to use; it defaults to the value of `obarray'. */) (Lisp_Object string, Lisp_Object package) { - /* PKG-FIXME: What's the right thing to do */ eassert (SREF (string, 0) != ':'); return pkg_emacs_intern (string, package); } diff --git a/src/pkg.c b/src/pkg.c index 7ae294fa839..60cd4573ff1 100644 --- a/src/pkg.c +++ b/src/pkg.c @@ -661,12 +661,7 @@ pkg_emacs_intern_soft (Lisp_Object symbol, Lisp_Object package) const Lisp_Object name = SYMBOLP (symbol) ? SYMBOL_NAME (symbol) : symbol; CHECK_STRING (name); - /* This is presumable an obarray, and we are intending - to intern into the default pacakge. */ - if (VECTORP (package)) - package = Vearmuffs_package; package = package_or_default (package); - Lisp_Object found = lookup_symbol (name, package); if (!EQ (found, Qunbound)) { -- 2.39.2