annotate lisp/loadhist.el @ 89588:3a34407a4019

(w32_encode_char): New charset parameter. font_info.encoding becomes encoding_type. (x_get_font_repertory): New function. Warning: stub only! (x_new_font): Return quickly if font already set. (x_new_fontset): fontsetname parameter is Lisp_Object. Use new fs_query_fontset. Try new_fontset_from_font_name. Use fontset_name for return value.
author Jason Rumney <jasonr@gnu.org>
date Sat, 11 Oct 2003 23:01:55 +0000
parents 375f2633d815
children 68c22ea6027c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 ;;; loadhist.el --- lisp functions for working with feature groups
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12751
diff changeset
2
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
3 ;; Copyright (C) 1995, 1998, 2000 Free Software Foundation, Inc.
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
6 ;; Maintainer: FSF
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 ;; Keywords: internal
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8
11289
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
9 ;; This file is part of GNU Emacs.
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
10
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
14 ;; any later version.
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
15
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
19 ;; GNU General Public License for more details.
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
20
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
21 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12751
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12751
diff changeset
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12751
diff changeset
24 ;; Boston, MA 02111-1307, USA.
11289
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
25
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 ;; These functions exploit the load-history system variable.
22459
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
29 ;; Entry points include `unload-feature', `symbol-file', and
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
30 ;; `feature-file', documented in the Emacs Lisp manual.
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 ;;; Code:
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 (defun feature-symbols (feature)
47017
0ba62d75345e (unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents: 33094
diff changeset
35 "Return the file and list of definitions associated with FEATURE.
0ba62d75345e (unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents: 33094
diff changeset
36 The value is actually the element of `load-history'
0ba62d75345e (unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents: 33094
diff changeset
37 for the file that did (provide FEATURE)."
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 (catch 'foundit
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
39 (mapc (lambda (x)
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
40 (if (member (cons 'provide feature) (cdr x))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
41 (throw 'foundit x)))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
42 load-history)
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 nil))
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 (defun feature-file (feature)
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 "Return the file name from which a given FEATURE was loaded.
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 Actually, return the load argument, if any; this is sometimes the name of a
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
48 Lisp file without an extension. If the feature came from an `eval-buffer' on
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
49 a buffer with no associated file, or an `eval-region', return nil."
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 (if (not (featurep feature))
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
51 (error "%S is not a currently loaded feature" feature)
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 (car (feature-symbols feature))))
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 (defun file-provides (file)
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 "Return the list of features provided by FILE."
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
56 (let ((symbols (cdr (assoc file load-history)))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
57 provides)
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
58 (mapc (lambda (x)
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
59 (if (and (consp x) (eq (car x) 'provide))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
60 (setq provides (cons (cdr x) provides))))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
61 symbols)
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
62 provides))
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 (defun file-requires (file)
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 "Return the list of features required by FILE."
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
66 (let ((symbols (cdr (assoc file load-history)))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
67 requires)
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
68 (mapc (lambda (x)
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
69 (if (and (consp x) (eq (car x) 'require))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
70 (setq requires (cons (cdr x) requires))))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
71 symbols)
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
72 requires))
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
74 (defsubst file-set-intersect (p q)
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
75 "Return the set intersection of two lists."
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 (let ((ret nil))
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
77 (dolist (x p ret)
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
78 (if (memq x q) (setq ret (cons x ret))))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
79 ret))
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 (defun file-dependents (file)
10498
8fb25f247533 (unload-feature): Don't care if FILE is a dependency of itself.
Richard M. Stallman <rms@gnu.org>
parents: 8108
diff changeset
82 "Return the list of loaded libraries that depend on FILE.
8fb25f247533 (unload-feature): Don't care if FILE is a dependency of itself.
Richard M. Stallman <rms@gnu.org>
parents: 8108
diff changeset
83 This can include FILE itself."
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
84 (let ((provides (file-provides file))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
85 (dependents nil))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
86 (dolist (x load-history dependents)
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
87 (if (file-set-intersect provides (file-requires (car x)))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
88 (setq dependents (cons (car x) dependents))))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
89 dependents))
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90
16173
9ba176963a26 (read-feature): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
91 (defun read-feature (prompt)
22459
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
92 "Read a feature name \(string\) from the minibuffer.
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
93 Prompt with PROMPT and completing from `features', and
16173
9ba176963a26 (read-feature): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
94 return the feature \(symbol\)."
9ba176963a26 (read-feature): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
95 (intern (completing-read prompt
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
96 (mapcar (lambda (feature)
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
97 (list (symbol-name feature)))
16173
9ba176963a26 (read-feature): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
98 features)
9ba176963a26 (read-feature): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
99 nil t)))
9ba176963a26 (read-feature): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
100
22459
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
101 (defvar loadhist-hook-functions
29346
7ac9c66520d4 (loadhist-hook-functions): Remove before-change-function,
Dave Love <fx@gnu.org>
parents: 29241
diff changeset
102 '(after-change-functions
47017
0ba62d75345e (unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents: 33094
diff changeset
103 after-insert-file-functions auto-fill-function
0ba62d75345e (unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents: 33094
diff changeset
104 before-change-functions blink-paren-function
0ba62d75345e (unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents: 33094
diff changeset
105 buffer-access-fontify-functions command-line-functions
0ba62d75345e (unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents: 33094
diff changeset
106 comment-indent-function kill-buffer-query-functions
0ba62d75345e (unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents: 33094
diff changeset
107 kill-emacs-query-functions lisp-indent-function
0ba62d75345e (unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents: 33094
diff changeset
108 mouse-position-function
0ba62d75345e (unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents: 33094
diff changeset
109 redisplay-end-trigger-functions temp-buffer-show-function
0ba62d75345e (unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents: 33094
diff changeset
110 window-scroll-functions window-size-change-functions
0ba62d75345e (unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents: 33094
diff changeset
111 write-region-annotate-functions)
33094
51c874361c84 (unload-feature): Call elp-restore-function,
Dave Love <fx@gnu.org>
parents: 31674
diff changeset
112 "A list of special hooks from Info node `(elisp)Standard Hooks'.
22459
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
113
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
114 These are symbols with hook-type values whose names don't end in
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
115 `-hook' or `-hooks', from which `unload-feature' tries to remove
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
116 pertinent symbols.")
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
117
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 ;;;###autoload
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 (defun unload-feature (feature &optional force)
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 "Unload the library that provided FEATURE, restoring all its autoloads.
29241
a243b2d9c015 (unload-feature): Fix interactive spec [from
Dave Love <fx@gnu.org>
parents: 29090
diff changeset
121 If the feature is required by any other loaded code, and prefix arg FORCE
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 is nil, raise an error."
29241
a243b2d9c015 (unload-feature): Fix interactive spec [from
Dave Love <fx@gnu.org>
parents: 29090
diff changeset
123 (interactive (list (read-feature "Feature: ") current-prefix-arg))
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 (if (not (featurep feature))
12751
f442c14a79c4 (unload-feature): Delete the file's load-history element.
Richard M. Stallman <rms@gnu.org>
parents: 11844
diff changeset
125 (error "%s is not a currently loaded feature" (symbol-name feature)))
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 (if (not force)
10498
8fb25f247533 (unload-feature): Don't care if FILE is a dependency of itself.
Richard M. Stallman <rms@gnu.org>
parents: 8108
diff changeset
127 (let* ((file (feature-file feature))
8fb25f247533 (unload-feature): Don't care if FILE is a dependency of itself.
Richard M. Stallman <rms@gnu.org>
parents: 8108
diff changeset
128 (dependents (delete file (copy-sequence (file-dependents file)))))
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 (if dependents
12751
f442c14a79c4 (unload-feature): Delete the file's load-history element.
Richard M. Stallman <rms@gnu.org>
parents: 11844
diff changeset
130 (error "Loaded libraries %s depend on %s"
22459
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
131 (prin1-to-string dependents) file))))
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
132 (let* ((flist (feature-symbols feature))
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
133 (file (car flist))
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
134 (unload-hook (intern-soft (concat (symbol-name feature)
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
135 "-unload-hook"))))
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
136 ;; Try to avoid losing badly when hooks installed in critical
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
137 ;; places go away. (Some packages install things on
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
138 ;; `kill-buffer-hook', `activate-menubar-hook' and the like.)
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
139 ;; First off, provide a clean way for package `foo' to arrange
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
140 ;; this by defining `foo-unload-hook'.
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
141 (if unload-hook
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
142 (run-hooks unload-hook)
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
143 ;; Otherwise, do our best. Look through the obarray for symbols
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
144 ;; which seem to be hook variables or special hook functions and
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
145 ;; remove anything from them which matches the feature-symbols
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
146 ;; about to get zapped. Obviously this won't get anonymous
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
147 ;; functions which the package might just have installed, and
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
148 ;; there might be other important state, but this tactic
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
149 ;; normally works.
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
150 (mapatoms
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
151 (lambda (x)
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
152 (if (or (and (boundp x) ; Random hooks.
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
153 (consp (symbol-value x))
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
154 (string-match "-hooks?\\'" (symbol-name x)))
30885
14607109ea46 (unload-feature): Typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29346
diff changeset
155 (and (boundp x) ; Known abnormal hooks etc.
22459
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
156 (memq x loadhist-hook-functions)))
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
157 (dolist (y (cdr flist))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
158 (remove-hook x y))))))
33094
51c874361c84 (unload-feature): Call elp-restore-function,
Dave Love <fx@gnu.org>
parents: 31674
diff changeset
159 (if (fboundp 'elp-restore-function) ; remove ELP stuff first
51c874361c84 (unload-feature): Call elp-restore-function,
Dave Love <fx@gnu.org>
parents: 31674
diff changeset
160 (dolist (elt (cdr flist))
51c874361c84 (unload-feature): Call elp-restore-function,
Dave Love <fx@gnu.org>
parents: 31674
diff changeset
161 (if (symbolp elt)
51c874361c84 (unload-feature): Call elp-restore-function,
Dave Love <fx@gnu.org>
parents: 31674
diff changeset
162 (elp-restore-function elt))))
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
163 (mapc
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
164 (lambda (x)
22459
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
165 (cond ((stringp x) nil)
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
166 ((consp x)
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
167 ;; Remove any feature names that this file provided.
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
168 (if (eq (car x) 'provide)
47017
0ba62d75345e (unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents: 33094
diff changeset
169 (setq features (delq (cdr x) features)))
47676
fadbf61035e1 (unload-feature): When undefining a variable, delete its buffer-local bindings.
Richard M. Stallman <rms@gnu.org>
parents: 47017
diff changeset
170 (when (eq (car x) 'defvar)
fadbf61035e1 (unload-feature): When undefining a variable, delete its buffer-local bindings.
Richard M. Stallman <rms@gnu.org>
parents: 47017
diff changeset
171 ;; Kill local values as much as possible.
fadbf61035e1 (unload-feature): When undefining a variable, delete its buffer-local bindings.
Richard M. Stallman <rms@gnu.org>
parents: 47017
diff changeset
172 (dolist (buf (buffer-list))
fadbf61035e1 (unload-feature): When undefining a variable, delete its buffer-local bindings.
Richard M. Stallman <rms@gnu.org>
parents: 47017
diff changeset
173 (with-current-buffer buf
fadbf61035e1 (unload-feature): When undefining a variable, delete its buffer-local bindings.
Richard M. Stallman <rms@gnu.org>
parents: 47017
diff changeset
174 (kill-local-variable (cdr x))))
fadbf61035e1 (unload-feature): When undefining a variable, delete its buffer-local bindings.
Richard M. Stallman <rms@gnu.org>
parents: 47017
diff changeset
175 ;; Get rid of the default binding if we can.
fadbf61035e1 (unload-feature): When undefining a variable, delete its buffer-local bindings.
Richard M. Stallman <rms@gnu.org>
parents: 47017
diff changeset
176 (unless (local-variable-if-set-p (cdr x))
fadbf61035e1 (unload-feature): When undefining a variable, delete its buffer-local bindings.
Richard M. Stallman <rms@gnu.org>
parents: 47017
diff changeset
177 (makunbound (cdr x)))))
29346
7ac9c66520d4 (loadhist-hook-functions): Remove before-change-function,
Dave Love <fx@gnu.org>
parents: 29241
diff changeset
178 (t
7ac9c66520d4 (loadhist-hook-functions): Remove before-change-function,
Dave Love <fx@gnu.org>
parents: 29241
diff changeset
179 (when (fboundp x)
31674
7661306a5b4e (unload-feature): Maybe call elp-restore-list and
Dave Love <fx@gnu.org>
parents: 30885
diff changeset
180 (if (fboundp 'ad-unadvise)
7661306a5b4e (unload-feature): Maybe call elp-restore-list and
Dave Love <fx@gnu.org>
parents: 30885
diff changeset
181 (ad-unadvise x))
29346
7ac9c66520d4 (loadhist-hook-functions): Remove before-change-function,
Dave Love <fx@gnu.org>
parents: 29241
diff changeset
182 (fmakunbound x)
7ac9c66520d4 (loadhist-hook-functions): Remove before-change-function,
Dave Love <fx@gnu.org>
parents: 29241
diff changeset
183 (let ((aload (get x 'autoload)))
7ac9c66520d4 (loadhist-hook-functions): Remove before-change-function,
Dave Love <fx@gnu.org>
parents: 29241
diff changeset
184 (if aload (fset x (cons 'autoload aload))))))))
12751
f442c14a79c4 (unload-feature): Delete the file's load-history element.
Richard M. Stallman <rms@gnu.org>
parents: 11844
diff changeset
185 (cdr flist))
f442c14a79c4 (unload-feature): Delete the file's load-history element.
Richard M. Stallman <rms@gnu.org>
parents: 11844
diff changeset
186 ;; Delete the load-history element for this file.
f442c14a79c4 (unload-feature): Delete the file's load-history element.
Richard M. Stallman <rms@gnu.org>
parents: 11844
diff changeset
187 (let ((elt (assoc file load-history)))
f442c14a79c4 (unload-feature): Delete the file's load-history element.
Richard M. Stallman <rms@gnu.org>
parents: 11844
diff changeset
188 (setq load-history (delq elt load-history)))))
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 (provide 'loadhist)
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 ;;; loadhist.el ends here