Lines Matching refs:feature
1 ;;; loadhist.el --- lisp functions for working with feature groups
30 ;; Entry points include `unload-feature', `symbol-file', and
31 ;; `feature-file', documented in the Emacs Lisp manual.
37 (defun feature-symbols (feature)
43 (if (member (cons 'provide feature) (cdr x))
48 (defun feature-file (feature)
51 Lisp file without an extension. If the feature came from an `eval-buffer' on
53 (if (not (featurep feature))
54 (error "%S is not a currently loaded feature" feature)
55 (car (feature-symbols feature))))
114 (defun read-feature (prompt &optional loaded-p)
115 "Read feature name from the minibuffer, prompting with string PROMPT.
116 If optional second arg LOADED-P is non-nil, the feature must be loaded
124 (feature-file f))))
127 (defvaralias 'loadhist-hook-functions 'unload-feature-special-hooks)
128 (defvar unload-feature-special-hooks
142 `-hook' or `-hooks', from which `unload-feature' tries to remove
149 documentation of `unload-feature' for details.")
152 (defun unload-feature (feature &optional force)
154 If the feature is required by any other loaded code, and prefix arg FORCE
162 the package's feature list (before anything is unbound) in the
168 (read-feature "Unload feature: " t)
170 (unless (featurep feature)
171 (error "%s is not a currently loaded feature" (symbol-name feature)))
173 (let* ((file (feature-file feature))
178 (let* ((unload-hook-features-list (feature-symbols feature))
183 (unload-hook (intern-soft (concat (symbol-name feature)
194 ;; remove anything from them which matches the feature-symbols
204 (memq x unload-feature-special-hooks))) ; Known abnormal hooks etc.
209 ;; Remove any feature-symbols from auto-mode-alist as well.
223 ;; Remove any feature names that this file provided.