(unload-feature): Fix interactive spec [from

lijnzaad@ebi.ac.uk].

2 files changed, 5 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 745729bdd8d..03ad3d30505 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-05-26  Dave Love  <fx@gnu.org>
 
+        * loadhist.el (unload-feature): Fix interactive spec [from
+        lijnzaad@ebi.ac.uk].
+
         * emacs-lisp/bytecomp.el (byte-compile-callargs-warn): Use
         subr-arity to check primitives.
         (byte-compile-flush-pending, byte-compile-file-form-progn)
diff --git a/lisp/loadhist.el b/lisp/loadhist.el
index b6721caf074..beb4dd46e5c 100644
--- a/lisp/loadhist.el
+++ b/lisp/loadhist.el
@@ -116,9 +116,9 @@ pertinent symbols.")
 ;;;###autoload
 (defun unload-feature (feature &optional force)
   "Unload the library that provided FEATURE, restoring all its autoloads.
-If the feature is required by any other loaded code, and optional FORCE
+If the feature is required by any other loaded code, and prefix arg FORCE
 is nil, raise an error."
-  (interactive (list (read-feature "Feature: ")))
+  (interactive (list (read-feature "Feature: ") current-prefix-arg))
   (if (not (featurep feature))
       (error "%s is not a currently loaded feature" (symbol-name feature)))
   (if (not force)