(unload-feature): Fix interactive spec [from

lijnzaad@ebi.ac.uk].

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 745729bdd8d526564bfd0c24fa93d2c3b83b136d..03ad3d30505cc2b2492f966b2f181655588072a1 100644 (file)
--- 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 b6721caf074ad95ccd8edb23562102c6f2efe40f..beb4dd46e5c572d8f44a1cc9c4acc03fc11bef7f 100644 (file)
--- 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)