xemacs-beta: lisp/loadhist.el annotate

annotate lisp/loadhist.el @ 5587:3fde0e346ad7

Prevent assert at frame.c, l. 6311 by initializing glyph cachels. * frame.c (Fmake_frame): Ensure that reset_glyph_cachels gets called. (setup_minibuffer_frame): Improve header comment. * redisplay.c (redisplay_window): Update comment. Remove code checking for uninitialized face_cachels and glyph_cachels. Can't happen in theory, and guarded by asserts in practice. * window.c (allocate_window): Update comment on reset_*_cachels.

author	Stephen J. Turnbull <stephen@xemacs.org>
date	Sat, 29 Oct 2011 00:35:33 +0900
parents	071b810ceb18
children	cc6f0266bc36

rev	line source
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1 ;;; loadhist.el --- lisp functions for working with feature groups
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6 ;; Version: 1.0
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	7 ;; Keywords: internal, dumped
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	8
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	9 ;; This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	10
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5206 diff changeset	11 ;; XEmacs is free software: you can redistribute it and/or modify it
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5206 diff changeset	12 ;; under the terms of the GNU General Public License as published by the
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5206 diff changeset	13 ;; Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5206 diff changeset	14 ;; option) any later version.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	15
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5206 diff changeset	16 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5206 diff changeset	17 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5206 diff changeset	18 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5206 diff changeset	19 ;; for more details.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	20
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	21 ;; You should have received a copy of the GNU General Public License
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 5206 diff changeset	22 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	23
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	24 ;;; Synched up with: FSF 20.2.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	25
4367 69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	26 ;; #### Sync this file!
69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	27
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	28 ;;; Commentary:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	29
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	30 ;; This file is dumped with XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	31
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	32 ;; These functions exploit the load-history system variable.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	33 ;; Entry points include `unload-feature', `symbol-file', and `feature-file'.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	34
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	35 ;;; Code:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	36
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	37 ;; load-history is a list of entries that look like this:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	38 ;; ("outline" outline-regexp ... (require . wid-edit) ... (provide . outline) ...)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	39
4539 061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	40 ;; XEmacs; this function is in subr.el in GNU, and does not deal with
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	41 ;; built-in symbols.
4540 7e01763ea656 Correct a misunderstanding of the semantics of #'return in #'symbol-file. Aidan Kehoe <kehoea@parhasard.net> parents: 4539 diff changeset	42 (defun* symbol-file (sym &optional type)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	43 "Return the input source from which SYM was loaded.
4367 69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	44 This is a file name, or nil if the source was a buffer with no associated file.
69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	45
69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	46 If TYPE is nil or omitted, any kind of definition is acceptable.
4905 755ae5b97edb Change "special form" to "special operator" in our sources. Aidan Kehoe <kehoea@parhasard.net> parents: 4783 diff changeset	47 If TYPE is `defun', then function, subr, special operator or macro definitions
4367 69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	48 are acceptable.
69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	49 If TYPE is `defvar', then variable definitions are acceptable.
69e6352406f0 Handle macros, autoloads correctly in symbol-file. Add an incomplete TYPE arg. Aidan Kehoe <kehoea@parhasard.net> parents: 3511 diff changeset	50
4535 69a1eda3da06 Distinguish vars and functions in #'symbol-file, #'describe-{function,variable} Aidan Kehoe <kehoea@parhasard.net> parents: 4367 diff changeset	51 `defface' specifies a face definition only, and for the moment, it won't
69a1eda3da06 Distinguish vars and functions in #'symbol-file, #'describe-{function,variable} Aidan Kehoe <kehoea@parhasard.net> parents: 4367 diff changeset	52 return faces created with `make-face' or `copy-face', just those created
69a1eda3da06 Distinguish vars and functions in #'symbol-file, #'describe-{function,variable} Aidan Kehoe <kehoea@parhasard.net> parents: 4367 diff changeset	53 with `defface' and `custom-declare-face'."
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	54 (interactive "SFind source file for symbol: ") ; XEmacs
4539 061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	55 (let (built-in-file autoload-cons symbol-details)
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	56 (cond ((and (eq 'autoload
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	57 (car-safe
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	58 (setq autoload-cons
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	59 (and (fboundp sym) (symbol-function sym)))))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	60 (or (and (or (null type) (eq 'defvar type))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	61 (eq (fifth autoload-cons) 'keymap))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	62 (and (or (null type) (eq 'defun type))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	63 (memq (fifth autoload-cons) '(nil macro)))))
4540 7e01763ea656 Correct a misunderstanding of the semantics of #'return in #'symbol-file. Aidan Kehoe <kehoea@parhasard.net> parents: 4539 diff changeset	64 (return-from symbol-file (locate-library (second autoload-cons))))
4539 061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	65 ((eq 'defvar type)
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	66 ;; Load history entries corresponding to variables are just
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	67 ;; symbols.
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	68 (dolist (entry load-history)
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	69 (when (memq sym (cdr entry))
4540 7e01763ea656 Correct a misunderstanding of the semantics of #'return in #'symbol-file. Aidan Kehoe <kehoea@parhasard.net> parents: 4539 diff changeset	70 (return-from symbol-file (car entry)))))
4539 061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	71 ((not (null type))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	72 ;; Non-variables have the type stored as the car of the entry.
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	73 (dolist (entry load-history)
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	74 (when (and (setq symbol-details (rassq sym (cdr entry)))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	75 (eq type (car symbol-details)))
4540 7e01763ea656 Correct a misunderstanding of the semantics of #'return in #'symbol-file. Aidan Kehoe <kehoea@parhasard.net> parents: 4539 diff changeset	76 (return-from symbol-file (car entry)))))
4539 061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	77 (t
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	78 ;; If TYPE hasn't been specified, we need to check both for
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	79 ;; variables and other symbols.
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	80 (dolist (entry load-history)
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	81 (when (or (memq sym (cdr entry))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	82 (rassq sym (cdr entry)))
4540 7e01763ea656 Correct a misunderstanding of the semantics of #'return in #'symbol-file. Aidan Kehoe <kehoea@parhasard.net> parents: 4539 diff changeset	83 (return-from symbol-file (car entry))))))
4539 061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	84 (when (setq built-in-file (built-in-symbol-file sym type))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	85 (if (equal built-in-file (file-truename built-in-file))
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	86 ;; Probably a full path name:
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	87 built-in-file
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	88 ;; This is a bit heuristic, but shouldn't realistically be a
061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	89 ;; problem:
5206 39d74978fd32 Keep around file info for dumped functions and variables without docstrings. Aidan Kehoe <kehoea@parhasard.net> parents: 4915 diff changeset	90 (if (string-match #r"\.elc?$" built-in-file)
4915 bedf3747a6d7 Use DOC for dumped Lisp file names; Xref to source-lisp if readable, symbol-file Aidan Kehoe <kehoea@parhasard.net> parents: 4905 diff changeset	91 (concat (if (file-readable-p source-lisp)
bedf3747a6d7 Use DOC for dumped Lisp file names; Xref to source-lisp if readable, symbol-file Aidan Kehoe <kehoea@parhasard.net> parents: 4905 diff changeset	92 source-lisp
bedf3747a6d7 Use DOC for dumped Lisp file names; Xref to source-lisp if readable, symbol-file Aidan Kehoe <kehoea@parhasard.net> parents: 4905 diff changeset	93 lisp-directory)
bedf3747a6d7 Use DOC for dumped Lisp file names; Xref to source-lisp if readable, symbol-file Aidan Kehoe <kehoea@parhasard.net> parents: 4905 diff changeset	94 built-in-file)
4539 061e030e3270 Fix some bugs in load-history construction, built-in symbol file names. Aidan Kehoe <kehoea@parhasard.net> parents: 4535 diff changeset	95 (concat source-directory "/src/" built-in-file))))))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	96
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	97 (defun feature-symbols (feature)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	98 "Return the file and list of symbols associated with a given FEATURE."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	99 (let ((pair `(provide . ,feature)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	100 (dolist (entry load-history)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	101 (when (member pair (cdr entry))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	102 (return entry)))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	103
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	104 (defun feature-file (feature)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	105 "Return the file name from which a given FEATURE was loaded.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	106 Actually, return the load argument, if any; this is sometimes the name of a
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	107 Lisp file without an extension. If the feature came from an eval-buffer on
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	108 a buffer with no associated file, or an eval-region, return nil."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	109 (unless (featurep feature)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	110 (error "%s is not a currently loaded feature" (symbol-name feature)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	111 (car (feature-symbols feature)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	112
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	113 (defun file-symbols (file)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	114 "Return the file and list of symbols associated with FILE.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	115 The file name in the returned list is the string used to load the file,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	116 and may not be the same string as FILE, but it will be equivalent."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	117 (or (assoc file load-history)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	118 (assoc (file-name-sans-extension file) load-history)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	119 (assoc (concat file ".el") load-history)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	120 (assoc (concat file ".elc") load-history)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	121
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	122 (defun file-provides (file)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	123 "Return the list of features provided by FILE."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	124 (let ((provides nil))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	125 (dolist (x (cdr (file-symbols file)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	126 (when (eq (car-safe x) 'provide)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	127 (push (cdr x) provides)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	128 provides))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	129
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	130 (defun file-requires (file)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	131 "Return the list of features required by FILE."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	132 (let ((requires nil))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	133 (dolist (x (cdr (file-symbols file)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	134 (when (eq (car-safe x) 'require)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	135 (push (cdr x) requires)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	136 requires))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	137
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	138 (defun file-dependents (file)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	139 "Return the list of loaded libraries that depend on FILE.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	140 This can include FILE itself."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	141 (let ((provides (file-provides file))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	142 (dependents nil))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	143 (dolist (entry load-history)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	144 (dolist (x (cdr entry))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	145 (when (and (eq (car-safe x) 'require)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	146 (memq (cdr-safe x) provides))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	147 (push (car entry) dependents))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	148 dependents))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	149
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	150 ;; FSFmacs
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	151 ;(defun read-feature (prompt)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	152 ; "Read a feature name $string$ from the minibuffer,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	153 ;prompting with PROMPT and completing from `features', and
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	154 ;return the feature $symbol$."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	155 ; (intern (completing-read prompt
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	156 ; (mapcar #'(lambda (feature)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	157 ; (list (symbol-name feature)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	158 ; features)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	159 ; nil t)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	160
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	161 ;; ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	162 (defun unload-feature (feature &optional force)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	163 "Unload the library that provided FEATURE, restoring all its autoloads.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	164 If the feature is required by any other loaded code, and optional FORCE
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	165 is nil, raise an error."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	166 (interactive "SFeature: ")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	167 (unless (featurep feature)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	168 (error "%s is not a currently loaded feature" (symbol-name feature)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	169 (when (not force)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	170 (let* ((file (feature-file feature))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	171 (dependents (delete file (copy-sequence (file-dependents file)))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	172 (when dependents
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	173 (error "Loaded libraries %s depend on %s"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	174 (prin1-to-string dependents) file))))
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 428 diff changeset	175 (let* ((flist (feature-symbols feature))
996 25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 442 diff changeset	176 (file (car flist))
25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 442 diff changeset	177 (unloading-module nil))
5567 3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	178 (labels ((reset-aload (x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	179 (let ((aload (get x 'autoload)))
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	180 (if aload (fset x (cons 'autoload aload))))))
5576 071b810ceb18 Declare labels as line where appropriate; use #'labels, not #'flet, tests. Aidan Kehoe <kehoea@parhasard.net> parents: 5567 diff changeset	181 (declare (inline reset-aload))
5567 3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	182 (mapc
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	183 #'(lambda (x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	184 (cond ((stringp x) nil)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	185 ((consp x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	186 ;; Remove any feature names that this file provided.
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	187 (if (eq (car x) 'provide)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	188 (setq features (delq (cdr x) features))
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	189 (if (eq (car x) 'module)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	190 (setq unloading-module t))))
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	191 ((and (boundp x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	192 (fboundp x))
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	193 (makunbound x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	194 (fmakunbound x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	195 (reset-aload x))
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	196 ((boundp x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	197 (makunbound x))
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	198 ((fboundp x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	199 (fmakunbound x)
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	200 (reset-aload x))))
3bc58dc9d688 Replace #'flet by #'labels where appropriate, core code. Aidan Kehoe <kehoea@parhasard.net> parents: 5402 diff changeset	201 (cdr flist)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	202 ;; Delete the load-history element for this file.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	203 (let ((elt (assoc file load-history)))
996 25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 442 diff changeset	204 (setq load-history (delq elt load-history)))
25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 442 diff changeset	205 ;; If it is a module, really unload it.
25e260cb7994 [xemacs-hg @ 2002-09-10 15:27:02 by james] james parents: 442 diff changeset	206 (if unloading-module
1111 184461bc8de4 [xemacs-hg @ 2002-11-18 06:52:23 by ben] ben parents: 996 diff changeset	207 (declare-fboundp (unload-module (symbol-name feature))))))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	208
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	209 (provide 'loadhist)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	210
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	211 ;;; loadhist.el ends here

Mercurial > hg > xemacs-beta

annotate lisp/loadhist.el @ 5587:3fde0e346ad7