;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Thu May 18 18:54:24 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/loadhist.el ;;; emacs version 19.28.91.23. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/loadhist.el' was compiled for Emacs 19")) #@132 Return the input source from which SYM was loaded. This is a file name, or nil if the source was a buffer with no associated file. (defalias 'symbol-file #[(sym) "" [foundit (byte-code "\n\"Ç" [mapcar #[(x) " A>\f @\"" [sym x throw foundit] 3] load-history nil] 3)] 2 (#$ . 486)]) #@70 Return the file and list of symbols associated with a given FEATURE. (defalias 'feature-symbols #[(feature) "" [foundit (byte-code "\n\"Ç" [mapcar #[(x) " B\nA \n\"" [provide feature x throw foundit] 3] load-history nil] 3)] 2 (#$ . 787)]) #@278 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) " ! !\" !@" [featurep feature error "%s is not a currently loaded feature." symbol-name feature-symbols] 4 (#$ . 1049)]) #@47 Return the list of features provided by FILE. (defalias 'file-provides #[(file) " \n\"A \"\f*" [assoc file load-history nil provides symbols mapcar #[(x) ":@=A\nB" [x provide provides] 2]] 3 (#$ . 1499)]) #@47 Return the list of features required by FILE. (defalias 'file-requires #[(file) " \n\"A \"\f*" [assoc file load-history nil requires symbols mapcar #[(x) ":@=A\nB" [x require requires] 2]] 3 (#$ . 1731)]) (defalias 'set-intersect #[(p q) "\f\" )" [nil ret mapcar #[(x) " > \nB" [x q ret] 2] p] 3]) #@88 Return the list of loaded libraries that depend on FILE. This can include FILE itself. (defalias 'file-dependents #[(file) " !\" *" [file-provides file nil dependents provides mapcar #[(x) " @!\" @\fB" [set-intersect provides file-requires x dependents] 4] load-history] 3 (#$ . 2069)]) #@168 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. (defalias 'unload-feature #[(feature &optional force) " ! !\" 1 !!!\" 0 !#* !@A\"*" [featurep feature error "%s is not a currently loaded feature." symbol-name force feature-file file delete copy-sequence file-dependents dependents "Loaded libraries %s depend on %s." prin1-to-string feature-symbols flist mapcar #[(x) ";:@=?A\f\"!%!!?!N\n>\nBM)" [x nil provide delq features boundp makunbound fboundp fmakunbound autoload aload] 4]] 6 (#$ . 2382) "SFeature: "]) (provide (quote loadhist))