Commit d4708676 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(read-feature): New function.

(unload-feature): Read FEATURE interactively with read-feature.
parent a1faca26
......@@ -101,12 +101,22 @@ This can include FILE itself."
dependents
))
(defun read-feature (prompt)
"Read a feature name \(string\) from the minibuffer,
prompting with PROMPT and completing from `features', and
return the feature \(symbol\)."
(intern (completing-read prompt
(mapcar (function (lambda (feature)
(list (symbol-name feature))))
features)
nil t)))
;;;###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
is nil, raise an error."
(interactive "SFeature: ")
(interactive (list (read-feature "Feature: ")))
(if (not (featurep feature))
(error "%s is not a currently loaded feature" (symbol-name feature)))
(if (not force)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment