Mercurial > emacs
annotate lisp/loadhist.el @ 75303:528bac1f7b32
*** empty log message ***
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 20 Jan 2007 15:43:48 +0000 |
parents | b2e5081b9320 |
children | e3694f1cb928 f1d13e615070 |
rev | line source |
---|---|
2543 | 1 ;;; loadhist.el --- lisp functions for working with feature groups |
14169 | 2 |
74442 | 3 ;; Copyright (C) 1995, 1998, 2000, 2001, 2002, 2003, 2004, |
68651
3bd95f4f2941
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
66285
diff
changeset
|
4 ;; 2005, 2006 Free Software Foundation, Inc. |
2543 | 5 |
6 ;; 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
|
7 ;; Maintainer: FSF |
2543 | 8 ;; Keywords: internal |
9 | |
11289 | 10 ;; This file is part of GNU Emacs. |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
15 ;; any later version. | |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
14169 | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64091 | 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 ;; Boston, MA 02110-1301, USA. | |
11289 | 26 |
2543 | 27 ;;; Commentary: |
28 | |
29 ;; These functions exploit the load-history system variable. | |
22459
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
30 ;; Entry points include `unload-feature', `symbol-file', and |
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
31 ;; `feature-file', documented in the Emacs Lisp manual. |
2543 | 32 |
33 ;;; Code: | |
34 | |
69935
3fc0524ae318
(unload-feature): A bit of sanity check of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69165
diff
changeset
|
35 (eval-when-compile (require 'cl)) |
3fc0524ae318
(unload-feature): A bit of sanity check of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69165
diff
changeset
|
36 |
2543 | 37 (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
|
38 "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
|
39 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
|
40 for the file that did (provide FEATURE)." |
2543 | 41 (catch 'foundit |
29090
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
42 (mapc (lambda (x) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
43 (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
|
44 (throw 'foundit x))) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
45 load-history) |
2543 | 46 nil)) |
47 | |
48 (defun feature-file (feature) | |
49 "Return the file name from which a given FEATURE was loaded. | |
50 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
|
51 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
|
52 a buffer with no associated file, or an `eval-region', return nil." |
2543 | 53 (if (not (featurep feature)) |
29090
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
54 (error "%S is not a currently loaded feature" feature) |
2543 | 55 (car (feature-symbols feature)))) |
56 | |
59318
55722dde9e0a
(file-loadhist-lookup): New function.
Richard M. Stallman <rms@gnu.org>
parents:
54000
diff
changeset
|
57 (defun file-loadhist-lookup (file) |
66285
dc2f1300400b
(file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
58 "Return the `load-history' element for FILE. |
dc2f1300400b
(file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
59 FILE can be a file name, or a library name. |
dc2f1300400b
(file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
60 A library name is equivalent to the file name that `load-library' would load." |
59318
55722dde9e0a
(file-loadhist-lookup): New function.
Richard M. Stallman <rms@gnu.org>
parents:
54000
diff
changeset
|
61 ;; First look for FILE as given. |
55722dde9e0a
(file-loadhist-lookup): New function.
Richard M. Stallman <rms@gnu.org>
parents:
54000
diff
changeset
|
62 (let ((symbols (assoc file load-history))) |
55722dde9e0a
(file-loadhist-lookup): New function.
Richard M. Stallman <rms@gnu.org>
parents:
54000
diff
changeset
|
63 ;; Try converting a library name to an absolute file name. |
55722dde9e0a
(file-loadhist-lookup): New function.
Richard M. Stallman <rms@gnu.org>
parents:
54000
diff
changeset
|
64 (and (null symbols) |
69165
cba71dc12c14
(file-loadhist-lookup): Use `get-load-suffixes' instead of `load-suffixes'.
Luc Teirlinck <teirllm@auburn.edu>
parents:
68651
diff
changeset
|
65 (let ((absname |
cba71dc12c14
(file-loadhist-lookup): Use `get-load-suffixes' instead of `load-suffixes'.
Luc Teirlinck <teirllm@auburn.edu>
parents:
68651
diff
changeset
|
66 (locate-file file load-path (get-load-suffixes)))) |
66285
dc2f1300400b
(file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
67 (and absname (not (equal absname file)) |
dc2f1300400b
(file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
68 (setq symbols (cdr (assoc absname load-history)))))) |
59318
55722dde9e0a
(file-loadhist-lookup): New function.
Richard M. Stallman <rms@gnu.org>
parents:
54000
diff
changeset
|
69 symbols)) |
55722dde9e0a
(file-loadhist-lookup): New function.
Richard M. Stallman <rms@gnu.org>
parents:
54000
diff
changeset
|
70 |
2543 | 71 (defun file-provides (file) |
66285
dc2f1300400b
(file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
72 "Return the list of features provided by FILE as it was loaded. |
dc2f1300400b
(file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
73 FILE can be a file name, or a library name. |
dc2f1300400b
(file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
74 A library name is equivalent to the file name that `load-library' would load." |
59318
55722dde9e0a
(file-loadhist-lookup): New function.
Richard M. Stallman <rms@gnu.org>
parents:
54000
diff
changeset
|
75 (let ((symbols (file-loadhist-lookup file)) |
29090
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
76 provides) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
77 (mapc (lambda (x) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
78 (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
|
79 (setq provides (cons (cdr x) provides)))) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
80 symbols) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
81 provides)) |
2543 | 82 |
83 (defun file-requires (file) | |
66285
dc2f1300400b
(file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
84 "Return the list of features required by FILE as it was loaded. |
dc2f1300400b
(file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
85 FILE can be a file name, or a library name. |
dc2f1300400b
(file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
86 A library name is equivalent to the file name that `load-library' would load." |
59318
55722dde9e0a
(file-loadhist-lookup): New function.
Richard M. Stallman <rms@gnu.org>
parents:
54000
diff
changeset
|
87 (let ((symbols (file-loadhist-lookup file)) |
29090
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
88 requires) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
89 (mapc (lambda (x) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
90 (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
|
91 (setq requires (cons (cdr x) requires)))) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
92 symbols) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
93 requires)) |
2543 | 94 |
29090
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
95 (defsubst file-set-intersect (p q) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
96 "Return the set intersection of two lists." |
2543 | 97 (let ((ret nil)) |
29090
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
98 (dolist (x p ret) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
99 (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
|
100 ret)) |
2543 | 101 |
102 (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
|
103 "Return the list of loaded libraries that depend on FILE. |
66285
dc2f1300400b
(file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
104 This can include FILE itself. |
dc2f1300400b
(file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
105 FILE can be a file name, or a library name. |
dc2f1300400b
(file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents:
64762
diff
changeset
|
106 A library name is equivalent to the file name that `load-library' would load." |
29090
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
107 (let ((provides (file-provides file)) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
108 (dependents nil)) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
109 (dolist (x load-history dependents) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
110 (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
|
111 (setq dependents (cons (car x) dependents)))) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
112 dependents)) |
2543 | 113 |
16173
9ba176963a26
(read-feature): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
114 (defun read-feature (prompt) |
22459
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
115 "Read a feature name \(string\) from the minibuffer. |
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
116 Prompt with PROMPT and completing from `features', and |
16173
9ba176963a26
(read-feature): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
117 return the feature \(symbol\)." |
9ba176963a26
(read-feature): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
118 (intern (completing-read prompt |
29090
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
119 (mapcar (lambda (feature) |
86d462e378ce
(feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents:
23852
diff
changeset
|
120 (list (symbol-name feature))) |
16173
9ba176963a26
(read-feature): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
121 features) |
73722
ccbdd770cd62
(read-feature): Don't complete features not loaded from a file (which make
Juanma Barranquero <lekktu@gmail.com>
parents:
72187
diff
changeset
|
122 ;; Complete only features loaded from a file |
ccbdd770cd62
(read-feature): Don't complete features not loaded from a file (which make
Juanma Barranquero <lekktu@gmail.com>
parents:
72187
diff
changeset
|
123 #'(lambda (f) (feature-file (intern (car f)))) |
ccbdd770cd62
(read-feature): Don't complete features not loaded from a file (which make
Juanma Barranquero <lekktu@gmail.com>
parents:
72187
diff
changeset
|
124 t))) |
16173
9ba176963a26
(read-feature): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
125 |
52755
6c7cae7ce71a
(unload-feature-special-hooks):
Richard M. Stallman <rms@gnu.org>
parents:
52401
diff
changeset
|
126 (defvaralias 'loadhist-hook-functions 'unload-feature-special-hooks) |
6c7cae7ce71a
(unload-feature-special-hooks):
Richard M. Stallman <rms@gnu.org>
parents:
52401
diff
changeset
|
127 (defvar unload-feature-special-hooks |
29346
7ac9c66520d4
(loadhist-hook-functions): Remove before-change-function,
Dave Love <fx@gnu.org>
parents:
29241
diff
changeset
|
128 '(after-change-functions |
47017
0ba62d75345e
(unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents:
33094
diff
changeset
|
129 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
|
130 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
|
131 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
|
132 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
|
133 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
|
134 mouse-position-function |
0ba62d75345e
(unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents:
33094
diff
changeset
|
135 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
|
136 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
|
137 write-region-annotate-functions) |
33094
51c874361c84
(unload-feature): Call elp-restore-function,
Dave Love <fx@gnu.org>
parents:
31674
diff
changeset
|
138 "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
|
139 |
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
140 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
|
141 `-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
|
142 pertinent symbols.") |
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
143 |
54000
8d106818ca97
(unload-hook-features-list): New defvar.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53998
diff
changeset
|
144 (defvar unload-hook-features-list nil |
8d106818ca97
(unload-hook-features-list): New defvar.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53998
diff
changeset
|
145 "List of features of the package being unloaded. |
8d106818ca97
(unload-hook-features-list): New defvar.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53998
diff
changeset
|
146 |
8d106818ca97
(unload-hook-features-list): New defvar.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53998
diff
changeset
|
147 This is meant to be used by FEATURE-unload-hook hooks, see the |
8d106818ca97
(unload-hook-features-list): New defvar.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53998
diff
changeset
|
148 documentation of `unload-feature' for details.") |
8d106818ca97
(unload-hook-features-list): New defvar.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53998
diff
changeset
|
149 |
2543 | 150 ;;;###autoload |
151 (defun unload-feature (feature &optional force) | |
152 "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
|
153 If the feature is required by any other loaded code, and prefix arg FORCE |
53998
2e361a295c26
(unload-feature): Doc fix. Rename flist to unload-hook-features-list.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53599
diff
changeset
|
154 is nil, raise an error. |
2e361a295c26
(unload-feature): Doc fix. Rename flist to unload-hook-features-list.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53599
diff
changeset
|
155 |
2e361a295c26
(unload-feature): Doc fix. Rename flist to unload-hook-features-list.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53599
diff
changeset
|
156 This function tries to undo modifications made by the package to |
2e361a295c26
(unload-feature): Doc fix. Rename flist to unload-hook-features-list.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53599
diff
changeset
|
157 hooks. Packages may define a hook FEATURE-unload-hook that is called |
2e361a295c26
(unload-feature): Doc fix. Rename flist to unload-hook-features-list.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53599
diff
changeset
|
158 instead of the normal heuristics for doing this. Such a hook should |
2e361a295c26
(unload-feature): Doc fix. Rename flist to unload-hook-features-list.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53599
diff
changeset
|
159 undo all the relevant global state changes that may have been made by |
2e361a295c26
(unload-feature): Doc fix. Rename flist to unload-hook-features-list.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53599
diff
changeset
|
160 loading the package or executing functions in it. It has access to |
2e361a295c26
(unload-feature): Doc fix. Rename flist to unload-hook-features-list.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53599
diff
changeset
|
161 the package's feature list (before anything is unbound) in the |
2e361a295c26
(unload-feature): Doc fix. Rename flist to unload-hook-features-list.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53599
diff
changeset
|
162 variable `unload-hook-features-list' and could remove features from it |
2e361a295c26
(unload-feature): Doc fix. Rename flist to unload-hook-features-list.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53599
diff
changeset
|
163 in the event that the package has done something normally-ill-advised, |
2e361a295c26
(unload-feature): Doc fix. Rename flist to unload-hook-features-list.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53599
diff
changeset
|
164 such as redefining an Emacs function." |
29241
a243b2d9c015
(unload-feature): Fix interactive spec [from
Dave Love <fx@gnu.org>
parents:
29090
diff
changeset
|
165 (interactive (list (read-feature "Feature: ") current-prefix-arg)) |
61664
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
166 (unless (featurep feature) |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
167 (error "%s is not a currently loaded feature" (symbol-name feature))) |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
168 (unless force |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
169 (let* ((file (feature-file feature)) |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
170 (dependents (delete file (copy-sequence (file-dependents file))))) |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
171 (when dependents |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
172 (error "Loaded libraries %s depend on %s" |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
173 (prin1-to-string dependents) file)))) |
53998
2e361a295c26
(unload-feature): Doc fix. Rename flist to unload-hook-features-list.
Eli Zaretskii <eliz@is.elta.co.il>
parents:
53599
diff
changeset
|
174 (let* ((unload-hook-features-list (feature-symbols feature)) |
61664
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
175 (file (pop unload-hook-features-list)) |
22459
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
176 (unload-hook (intern-soft (concat (symbol-name feature) |
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
177 "-unload-hook")))) |
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
178 ;; 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
|
179 ;; places go away. (Some packages install things on |
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
180 ;; `kill-buffer-hook', `activate-menubar-hook' and the like.) |
53599 | 181 ;; First off, provide a clean way for package FOO to arrange |
182 ;; this by adding hooks on the variable `FOO-unload-hook'. | |
22459
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
183 (if unload-hook |
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
184 (run-hooks unload-hook) |
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
185 ;; 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
|
186 ;; 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
|
187 ;; remove anything from them which matches the feature-symbols |
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
188 ;; 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
|
189 ;; functions which the package might just have installed, and |
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
190 ;; there might be other important state, but this tactic |
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
191 ;; normally works. |
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
192 (mapatoms |
bc88a299d2fc
(read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
16173
diff
changeset
|
193 (lambda (x) |
61664
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
194 (when (and (boundp x) |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
195 (or (and (consp (symbol-value x)) ; Random hooks. |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
196 (string-match "-hooks?\\'" (symbol-name x))) |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
197 (memq x unload-feature-special-hooks))) ; Known abnormal hooks etc. |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
198 (dolist (y unload-hook-features-list) |
61720
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
199 (when (and (eq (car-safe y) 'defun) |
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
200 (not (get (cdr y) 'autoload))) |
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
201 (remove-hook x (cdr y))))))) |
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
202 ;; Remove any feature-symbols from auto-mode-alist as well. |
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
203 (dolist (y unload-hook-features-list) |
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
204 (when (and (eq (car-safe y) 'defun) |
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
205 (not (get (cdr y) 'autoload))) |
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
206 (setq auto-mode-alist |
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
207 (rassq-delete-all (cdr y) auto-mode-alist))))) |
61664
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
208 (when (fboundp 'elp-restore-function) ; remove ELP stuff first |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
209 (dolist (elt unload-hook-features-list) |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
210 (when (symbolp elt) |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
211 (elp-restore-function elt)))) |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
212 (dolist (x unload-hook-features-list) |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
213 (if (consp x) |
69935
3fc0524ae318
(unload-feature): A bit of sanity check of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69165
diff
changeset
|
214 (case (car x) |
61720
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
215 ;; Remove any feature names that this file provided. |
69935
3fc0524ae318
(unload-feature): A bit of sanity check of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69165
diff
changeset
|
216 (provide |
61720
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
217 (setq features (delq (cdr x) features))) |
69935
3fc0524ae318
(unload-feature): A bit of sanity check of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69165
diff
changeset
|
218 (defun |
61720
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
219 (let ((fun (cdr x))) |
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
220 (when (fboundp fun) |
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
221 (when (fboundp 'ad-unadvise) |
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
222 (ad-unadvise fun)) |
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
223 (let ((aload (get fun 'autoload))) |
69935
3fc0524ae318
(unload-feature): A bit of sanity check of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69165
diff
changeset
|
224 (if aload |
3fc0524ae318
(unload-feature): A bit of sanity check of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69165
diff
changeset
|
225 (fset fun (cons 'autoload aload)) |
3fc0524ae318
(unload-feature): A bit of sanity check of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69165
diff
changeset
|
226 (fmakunbound fun)))))) |
72187
a17769ba1089
* loadhist.el (unload-feature): Handle new `(t . SYMBOL)' format
Chong Yidong <cyd@stupidchicken.com>
parents:
69935
diff
changeset
|
227 ((t require) nil) |
a17769ba1089
* loadhist.el (unload-feature): Handle new `(t . SYMBOL)' format
Chong Yidong <cyd@stupidchicken.com>
parents:
69935
diff
changeset
|
228 (t (message "Unexpected element %s in load-history" x))) |
61664
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
229 ;; Kill local values as much as possible. |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
230 (dolist (buf (buffer-list)) |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
231 (with-current-buffer buf |
69935
3fc0524ae318
(unload-feature): A bit of sanity check of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69165
diff
changeset
|
232 (if (and (boundp x) (timerp (symbol-value x))) |
3fc0524ae318
(unload-feature): A bit of sanity check of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69165
diff
changeset
|
233 (cancel-timer (symbol-value x))) |
61664
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
234 (kill-local-variable x))) |
69935
3fc0524ae318
(unload-feature): A bit of sanity check of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69165
diff
changeset
|
235 (if (and (boundp x) (timerp (symbol-value x))) |
3fc0524ae318
(unload-feature): A bit of sanity check of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69165
diff
changeset
|
236 (cancel-timer (symbol-value x))) |
61664
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
237 ;; Get rid of the default binding if we can. |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
238 (unless (local-variable-if-set-p x) |
79b58e05730b
(unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents:
61599
diff
changeset
|
239 (makunbound x)))) |
12751
f442c14a79c4
(unload-feature): Delete the file's load-history element.
Richard M. Stallman <rms@gnu.org>
parents:
11844
diff
changeset
|
240 ;; Delete the load-history element for this file. |
61720
314c959fa176
(unload-feature): Don't remove a function from hooks if it is about to
Lute Kamstra <lute@gnu.org>
parents:
61664
diff
changeset
|
241 (setq load-history (delq (assoc file load-history) load-history)))) |
2543 | 242 |
243 (provide 'loadhist) | |
244 | |
69935
3fc0524ae318
(unload-feature): A bit of sanity check of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69165
diff
changeset
|
245 ;; arch-tag: 70bb846a-c413-4f01-bf88-78dba4ac0798 |
2543 | 246 ;;; loadhist.el ends here |