View file File name : loadhist.elc Content :;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@159 Return the file and list of definitions associated with FEATURE. The value is actually the element of `load-history' for the file that did (provide FEATURE). (defalias 'feature-symbols #[(feature) "\3052+ \306B\n\307\211 \203& \f@ A\235\203 \310\305 \"\210\fA\211\204 \307+\3070\207" [feature element load-history x --dolist-tail-- foundit provide nil throw] 4 (#$ . 409)]) #@282 Return the file name from which a given FEATURE was loaded. Actually, return the load argument, if any; this is sometimes the name of a Lisp file without an extension. If the feature came from an `eval-buffer' on a buffer with no associated file, or an `eval-region', return nil. (defalias 'feature-file #[(feature) "\301!\204 \302\303\"\207\304!@\207" [feature featurep error "%S is not a currently loaded feature" feature-symbols] 3 (#$ . 799)]) #@167 Return the `load-history' element for FILE. FILE can be a file name, or a library name. A library name is equivalent to the file name that `load-library' would load. (defalias 'file-loadhist-lookup #[(file) "\305 \"\211\204! \306 \307 #\211 \203 \f\232\204 \305\f \"A)\n)\207" [file load-history symbols load-path absname assoc locate-file get-load-suffixes] 5 (#$ . 1259)]) #@186 Return the list of features provided by FILE as it was loaded. FILE can be a file name, or a library name. A library name is equivalent to the file name that `load-library' would load. (defalias 'file-provides #[(file) "\304\305 !\304\211\203\" @\211\242\306=\203 \nAB A\211\204\f \304+\207" [provides file x --dolist-tail-- nil file-loadhist-lookup provide] 3 (#$ . 1648)]) #@186 Return the list of features required by FILE as it was loaded. FILE can be a file name, or a library name. A library name is equivalent to the file name that `load-library' would load. (defalias 'file-requires #[(file) "\304\305 !\304\211\203\" @\211\242\306=\203 \nAB A\211\204\f \304+\207" [requires file x --dolist-tail-- nil file-loadhist-lookup require] 3 (#$ . 2041)]) #@43 Return the set intersection of two lists. (defalias 'file-set-intersect #[(p q) "\305 \305\211\203 @\211\f>\203 \nB A\211\204\n \305+\207" [ret p x --dolist-tail-- q nil] 3 (#$ . 2433)]) (put 'file-set-intersect 'byte-optimizer 'byte-compile-inline-expand) #@210 Return the list of loaded libraries that depend on FILE. This can include FILE itself. FILE can be a file name, or a library name. A library name is equivalent to the file name that `load-library' would load. (defalias 'file-dependents #[(file) "\306!\307 \307 \211 \203W @\211@;\203P \n\310\f@! \n\307 \n\307 \211 \203C @\211 >\203< \f B A\211\204, \307 -\203P \f@ B A\211\204 \307 ,\207" [file dependents provides load-history x --dolist-tail-- file-provides nil file-requires q p ret] 4 (#$ . 2709)]) #@154 Read feature name from the minibuffer, prompting with string PROMPT. If optional second arg LOADED-P is non-nil, the feature must be loaded from a file. (defalias 'read-feature #[(prompt &optional loaded-p) "\303\304\305\306 \203 \307\310\305\311\n\"\"\202 \n\"\"!\207" [prompt loaded-p features intern completing-read mapcar symbol-name delq nil #[(x) "\301!\205 \207" [x feature-file] 2]] 10 (#$ . 3242)]) (defvaralias 'loadhist-hook-functions 'unload-feature-special-hooks) #@219 A list of special hooks from Info node `(elisp)Standard Hooks'. These are symbols with hooklike values whose names don't end in `-hook' or `-hooks', from which `unload-feature' should try to remove pertinent symbols. (defvar unload-feature-special-hooks '(after-change-functions after-insert-file-functions after-make-frame-functions auto-coding-functions auto-fill-function before-change-functions blink-paren-function buffer-access-fontify-functions choose-completion-string-functions comint-output-filter-functions command-line-functions comment-indent-function compilation-finish-functions delete-frame-functions disabled-command-function fill-nobreak-predicate find-directory-functions find-file-not-found-functions font-lock-fontify-buffer-function font-lock-fontify-region-function font-lock-mark-block-function font-lock-syntactic-face-function font-lock-unfontify-buffer-function font-lock-unfontify-region-function kill-buffer-query-functions kill-emacs-query-functions lisp-indent-function mouse-position-function redisplay-end-trigger-functions suspend-tty-functions temp-buffer-show-function window-scroll-functions window-size-change-functions write-contents-functions write-file-functions write-region-annotate-functions) (#$ . 3732)) #@168 List of definitions in the Lisp library being unloaded. This is meant to be used by `FEATURE-unload-function'; see the documentation of `unload-feature' for details. (defvar unload-function-defs-list nil (#$ . 4990)) (defalias 'unload--set-major-mode #[nil "r\305 \306\211\205; @\211q\210\n\211\203% \307 \f\"\203% \310N\211\204 \n=\2042 \2060 \311 \210) A\211\204\n \306+\207" [buffer --dolist-tail-- major-mode proposed unload-function-defs-list buffer-list nil rassq derived-mode-parent fundamental-mode] 4]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\207" [defalias loadhist-unload-element cl-generic-define (x) nil "Unload an element from the `load-history'.\n\n(fn X)" cl-generic-define-method #[(x) "\301\302\"\207" [x message "Unexpected element %S in load-history"] 3]] 6) #@91 If non-nil, this is a symbol for which we should restore a previous autoload if possible. (defvar loadhist--restore-autoload nil (#$ . 5820)) (cl-generic-define-method 'loadhist-unload-element nil '((x (head t))) nil #[(x) "A\211\207" [x loadhist--restore-autoload] 2]) (defalias 'loadhist--unload-function #[(x) "A\304 !\203) \304\305!\203 \305 !\210 \306N\307 \n\205& =\205& \306\nB\"\210))\310\211\207" [x fun aload loadhist--restore-autoload fboundp ad-unadvise autoload defalias nil] 4]) (byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\301\302\307\302\310%\210\300\301\302\311\302\312%\210\300\301\302\313\302\314%\210\300\301\302\315\302\316%\210\300\301\302\317\302\320%\210\300\301\302\321\302\322%\207" [cl-generic-define-method loadhist-unload-element nil ((x (head defun))) #[(x) "\301!\207" [x loadhist--unload-function] 2] ((x (head autoload))) #[(x) "\301!\207" [x loadhist--unload-function] 2] ((_ (head require))) #[(_) "\300\207" [nil] 1] ((_ (head defface))) #[(_) "\300\207" [nil] 1] ((x (head provide))) #[(x) "\302A \"\211\207" [x features delq] 3] ((x symbol)) #[(x) "\303 \304\211\203. @rq\210\305\n!\203\" \306\nJ!\203\" \307\nJ!\210\310\n!\210) A\211\204 *\305\n!\203A \306\nJ!\203A \307\nJ!\210\311\n!?\205K \312\n!\207" [buf --dolist-tail-- x buffer-list nil boundp timerp cancel-timer kill-local-variable local-variable-if-set-p makunbound] 3] ((x (head define-type))) #[(x) "A\211\303\n\304\305#*\207" [x name #:v put cl--class nil] 5] ((x (head define-symbol-props))) #[(x) "A\306\211\205< \n@\211@ A\211 \211 \306 \211\2032 \n@ \307 \306#\210\nA\211\204 .\nA\211\204 \306*\207" [x #:x119 --dolist-tail-- #:x120 #:x121 symbol nil put props prop] 5]] 6) #@1097 Unload the library that provided FEATURE. If the feature is required by any other loaded code, and prefix arg FORCE is nil, raise an error. Standard unloading activities include restoring old autoloads for functions defined by the library, undoing any additions that the library has made to hook variables or to `auto-mode-alist', undoing ELP profiling of functions in that library, unproviding any features provided by the library, and canceling timers held in variables defined by the library. If a function `FEATURE-unload-function' is defined, this function calls it with no arguments, before doing anything else. That function can do whatever is appropriate to undo the loading of the library. If `FEATURE-unload-function' returns non-nil, that suppresses the standard unloading of the library. Otherwise the standard unloading proceeds. `FEATURE-unload-function' has access to the package's list of definitions in the variable `unload-function-defs-list' and could remove symbols from it in the event that the package has done something strange, such as redefining an Emacs function. (defalias 'unload-feature #[(feature &optional force) "\306!\204 \307\310\311!\"\210 \204+ \312!\313\n\314\315\n!!\"\211\203* \307\316\317 !\n#\210*\320!\211 \211A\242\311! \321 \322P! !\321 \323P! \"\324\"!\203T \" \204\251 !\203a \325!!\210\202\226 \326\327!\210\f\330 #\211 $\203\225 $@\211#\242\331=\203\214 #A\332N\204\214 \333#A%\"%$A\211$\204o *\334 \210\335\336\f\"\210\337\340\n&\"&\"&-\330\207" [feature force file dependents unload-function-defs-list name featurep error "%s is not a currently loaded feature" symbol-name feature-file delete copy-sequence file-dependents "Loaded libraries %s depend on %s" prin1-to-string feature-symbols intern-soft "-unload-hook" "-unload-function" fboundp run-hooks mapatoms #[(x) "\305!\205C J:\203 \306\307\310!\"\204 >\205C \n\311\211 \205B \f@\211\242\312=\203: A\313N\204: \314 A\"\210\fA\211\204# \311*\207" [x unload-feature-special-hooks unload-function-defs-list y --dolist-tail-- boundp string-match "-hooks?\\'" symbol-name nil defun autoload remove-hook] 5] nil defun autoload rassq-delete-all unload--set-major-mode mapc loadhist-unload-element delq assoc unload-hook unload-func y --dolist-tail-- auto-mode-alist load-history] 6 (#$ . 7579) (list (read-feature "Unload feature: " t) current-prefix-arg)]) (provide 'loadhist)