Mercurial > emacs

changeset 16173:9ba176963a26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read-feature): New function. (unload-feature): Read FEATURE interactively with read-feature.
author Richard M. Stallman <rms@gnu.org>
date Thu, 12 Sep 1996 18:31:16 +0000
parents b7131e99a796
children 4bbcbff8c3da
files lisp/loadhist.el
diffstat 1 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/loadhist.el	Thu Sep 12 17:29:17 1996 +0000
+++ b/lisp/loadhist.el	Thu Sep 12 18:31:16 1996 +0000
@@ -101,12 +101,22 @@
     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)