annotate lisp/loadhist.el @ 85815:960b3c592913

(doc-view-conversion-refresh-interval) (doc-view-dvi->pdf, doc-view-pdf/ps->png, doc-view-pdf->txt) (doc-view-reset-slice): Doc fixes. (doc-view-menu): Remove deleted function doc-view-edit-doc.
author Glenn Morris <rgm@gnu.org>
date Wed, 31 Oct 2007 03:10:32 +0000
parents 018f2968e81d
children d3e87ee5aa0e
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
74442
b2e5081b9320 Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 73722
diff changeset
3 ;; Copyright (C) 1995, 1998, 2000, 2001, 2002, 2003, 2004,
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74442
diff changeset
4 ;; 2005, 2006, 2007 Free Software Foundation, Inc.
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 ;; Keywords: internal
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
11289
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
10 ;; This file is part of GNU Emacs.
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
11
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
78236
9355f9b7bbff Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 76969
diff changeset
14 ;; the Free Software Foundation; either version 3, or (at your option)
11289
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
15 ;; any later version.
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
16
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
20 ;; GNU General Public License for more details.
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
21
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
22 ;; 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
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64091
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 61720
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 61720
diff changeset
25 ;; Boston, MA 02110-1301, USA.
11289
b8ba33ac2f22 Comment changes.
Karl Heuer <kwzh@gnu.org>
parents: 10498
diff changeset
26
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ;;; Commentary:
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 ;;; Code:
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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)."
85370
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
41 (catch 'foundit
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
42 (let ((element (cons 'provide feature)))
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
43 (dolist (x load-history nil)
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
44 (when (member element (cdr x))
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
45 (throw 'foundit x))))))
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 (defun feature-file (feature)
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 "Return the file name from which a given FEATURE was loaded.
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 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
50 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
51 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
52 (if (not (featurep feature))
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
53 (error "%S is not a currently loaded feature" feature)
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 (car (feature-symbols feature))))
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55
59318
55722dde9e0a (file-loadhist-lookup): New function.
Richard M. Stallman <rms@gnu.org>
parents: 54000
diff changeset
56 (defun file-loadhist-lookup (file)
66285
dc2f1300400b (file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents: 64762
diff changeset
57 "Return the `load-history' element for FILE.
dc2f1300400b (file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents: 64762
diff changeset
58 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
59 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
60 ;; First look for FILE as given.
55722dde9e0a (file-loadhist-lookup): New function.
Richard M. Stallman <rms@gnu.org>
parents: 54000
diff changeset
61 (let ((symbols (assoc file load-history)))
55722dde9e0a (file-loadhist-lookup): New function.
Richard M. Stallman <rms@gnu.org>
parents: 54000
diff changeset
62 ;; 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
63 (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
64 (let ((absname
cba71dc12c14 (file-loadhist-lookup): Use `get-load-suffixes' instead of `load-suffixes'.
Luc Teirlinck <teirllm@auburn.edu>
parents: 68651
diff changeset
65 (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
66 (and absname (not (equal absname file))
dc2f1300400b (file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents: 64762
diff changeset
67 (setq symbols (cdr (assoc absname load-history))))))
59318
55722dde9e0a (file-loadhist-lookup): New function.
Richard M. Stallman <rms@gnu.org>
parents: 54000
diff changeset
68 symbols))
55722dde9e0a (file-loadhist-lookup): New function.
Richard M. Stallman <rms@gnu.org>
parents: 54000
diff changeset
69
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 (defun file-provides (file)
66285
dc2f1300400b (file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents: 64762
diff changeset
71 "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
72 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
73 A library name is equivalent to the file name that `load-library' would load."
85370
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
74 (let (provides)
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
75 (dolist (x (file-loadhist-lookup file) provides)
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
76 (when (eq (car-safe x) 'provide)
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
77 (push x provides)))))
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 (defun file-requires (file)
66285
dc2f1300400b (file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents: 64762
diff changeset
80 "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
81 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
82 A library name is equivalent to the file name that `load-library' would load."
85370
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
83 (let (requires)
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
84 (dolist (x (file-loadhist-lookup file) requires)
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
85 (when (eq (car-safe x) 'require)
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
86 (push x requires)))))
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
88 (defsubst file-set-intersect (p q)
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
89 "Return the set intersection of two lists."
85370
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
90 (let (ret)
29090
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
91 (dolist (x p ret)
85370
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
92 (when (memq x q) (push x ret)))))
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 (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
95 "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
96 This can include FILE itself.
dc2f1300400b (file-loadhist-lookup): Call locate-library
Richard M. Stallman <rms@gnu.org>
parents: 64762
diff changeset
97 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
98 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
99 (let ((provides (file-provides file))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
100 (dependents nil))
86d462e378ce (feature-symbols, file-provides, file-requires): Use mapc.
Dave Love <fx@gnu.org>
parents: 23852
diff changeset
101 (dolist (x load-history dependents)
85370
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
102 (when (file-set-intersect provides (file-requires (car x)))
2ad51c213e7d (feature-symbols, file-provides, file-requires, file-set-intersect,
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
103 (push (car x) dependents)))))
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104
76968
a188649f301c (read-feature): Reimplement. New optional arg LOADED-P.
Kim F. Storm <storm@cua.dk>
parents: 75797
diff changeset
105 (defun read-feature (prompt &optional loaded-p)
a188649f301c (read-feature): Reimplement. New optional arg LOADED-P.
Kim F. Storm <storm@cua.dk>
parents: 75797
diff changeset
106 "Read feature name from the minibuffer, prompting with string PROMPT.
a188649f301c (read-feature): Reimplement. New optional arg LOADED-P.
Kim F. Storm <storm@cua.dk>
parents: 75797
diff changeset
107 If optional second arg LOADED-P is non-nil, the feature must be loaded
a188649f301c (read-feature): Reimplement. New optional arg LOADED-P.
Kim F. Storm <storm@cua.dk>
parents: 75797
diff changeset
108 from a file."
a188649f301c (read-feature): Reimplement. New optional arg LOADED-P.
Kim F. Storm <storm@cua.dk>
parents: 75797
diff changeset
109 (intern
a188649f301c (read-feature): Reimplement. New optional arg LOADED-P.
Kim F. Storm <storm@cua.dk>
parents: 75797
diff changeset
110 (completing-read prompt
a188649f301c (read-feature): Reimplement. New optional arg LOADED-P.
Kim F. Storm <storm@cua.dk>
parents: 75797
diff changeset
111 (cons nil features)
a188649f301c (read-feature): Reimplement. New optional arg LOADED-P.
Kim F. Storm <storm@cua.dk>
parents: 75797
diff changeset
112 (and loaded-p
a188649f301c (read-feature): Reimplement. New optional arg LOADED-P.
Kim F. Storm <storm@cua.dk>
parents: 75797
diff changeset
113 #'(lambda (f)
a188649f301c (read-feature): Reimplement. New optional arg LOADED-P.
Kim F. Storm <storm@cua.dk>
parents: 75797
diff changeset
114 (and f ; ignore nil
a188649f301c (read-feature): Reimplement. New optional arg LOADED-P.
Kim F. Storm <storm@cua.dk>
parents: 75797
diff changeset
115 (feature-file f))))
a188649f301c (read-feature): Reimplement. New optional arg LOADED-P.
Kim F. Storm <storm@cua.dk>
parents: 75797
diff changeset
116 loaded-p)))
16173
9ba176963a26 (read-feature): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
117
52755
6c7cae7ce71a (unload-feature-special-hooks):
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
118 (defvaralias 'loadhist-hook-functions 'unload-feature-special-hooks)
6c7cae7ce71a (unload-feature-special-hooks):
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
119 (defvar unload-feature-special-hooks
79140
c52ee056d7b0 (unload-feature-special-hooks): Update list of special hooks.
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
120 '(after-change-functions after-insert-file-functions
c52ee056d7b0 (unload-feature-special-hooks): Update list of special hooks.
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
121 after-make-frame-functions auto-fill-function before-change-functions
c52ee056d7b0 (unload-feature-special-hooks): Update list of special hooks.
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
122 blink-paren-function buffer-access-fontify-functions command-line-functions
85740
018f2968e81d (unload-feature-special-hooks): Add `delete-frame-functions'
Juanma Barranquero <lekktu@gmail.com>
parents: 85688
diff changeset
123 comment-indent-function compilation-finish-functions delete-frame-functions
79140
c52ee056d7b0 (unload-feature-special-hooks): Update list of special hooks.
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
124 disabled-command-function find-file-not-found-functions
c52ee056d7b0 (unload-feature-special-hooks): Update list of special hooks.
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
125 font-lock-beginning-of-syntax-function font-lock-fontify-buffer-function
c52ee056d7b0 (unload-feature-special-hooks): Update list of special hooks.
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
126 font-lock-fontify-region-function font-lock-mark-block-function
c52ee056d7b0 (unload-feature-special-hooks): Update list of special hooks.
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
127 font-lock-syntactic-face-function font-lock-unfontify-buffer-function
c52ee056d7b0 (unload-feature-special-hooks): Update list of special hooks.
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
128 font-lock-unfontify-region-function kill-buffer-query-functions
c52ee056d7b0 (unload-feature-special-hooks): Update list of special hooks.
Juanma Barranquero <lekktu@gmail.com>
parents: 79030
diff changeset
129 kill-emacs-query-functions lisp-indent-function mouse-position-function
85740
018f2968e81d (unload-feature-special-hooks): Add `delete-frame-functions'
Juanma Barranquero <lekktu@gmail.com>
parents: 85688
diff changeset
130 redisplay-end-trigger-functions suspend-tty-functions
018f2968e81d (unload-feature-special-hooks): Add `delete-frame-functions'
Juanma Barranquero <lekktu@gmail.com>
parents: 85688
diff changeset
131 temp-buffer-show-function window-scroll-functions
018f2968e81d (unload-feature-special-hooks): Add `delete-frame-functions'
Juanma Barranquero <lekktu@gmail.com>
parents: 85688
diff changeset
132 window-size-change-functions write-contents-functions write-file-functions
47017
0ba62d75345e (unload-feature): Distinguish functions from variables in load-history.
Richard M. Stallman <rms@gnu.org>
parents: 33094
diff changeset
133 write-region-annotate-functions)
33094
51c874361c84 (unload-feature): Call elp-restore-function,
Dave Love <fx@gnu.org>
parents: 31674
diff changeset
134 "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
135
79192
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
136 These are symbols with hooklike values whose names don't end in
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
137 `-hook' or `-hooks', from which `unload-feature' should try to remove
22459
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
138 pertinent symbols.")
bc88a299d2fc (read-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 16173
diff changeset
139
79192
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
140 (defvar unload-function-defs-list nil
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
141 "List of defintions in the Lisp library being unloaded.
54000
8d106818ca97 (unload-hook-features-list): New defvar.
Eli Zaretskii <eliz@is.elta.co.il>
parents: 53998
diff changeset
142
79192
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
143 This is meant to be used by `FEATURE-unload-function'; see the
54000
8d106818ca97 (unload-hook-features-list): New defvar.
Eli Zaretskii <eliz@is.elta.co.il>
parents: 53998
diff changeset
144 documentation of `unload-feature' for details.")
79145
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
145 (define-obsolete-variable-alias 'unload-hook-features-list
79192
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
146 'unload-function-defs-list "22.2")
54000
8d106818ca97 (unload-hook-features-list): New defvar.
Eli Zaretskii <eliz@is.elta.co.il>
parents: 53998
diff changeset
147
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 ;;;###autoload
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 (defun unload-feature (feature &optional force)
79192
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
150 "Unload the library that provided FEATURE.
29241
a243b2d9c015 (unload-feature): Fix interactive spec [from
Dave Love <fx@gnu.org>
parents: 29090
diff changeset
151 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
152 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
153
79192
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
154 Standard unloading activities include restoring old autoloads for
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
155 functions defined by the library, undoing any additions that the
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
156 library has made to hook variables or to `auto-mode-alist', undoing
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
157 ELP profiling of functions in that library, unproviding any features
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
158 provided by the library, and canceling timers held in variables
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
159 defined by the library.
79030
e8d941fbbe78 (unload-feature): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 78236
diff changeset
160
79192
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
161 If a function `FEATURE-unload-function' is defined, this function
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
162 calls it with no arguments, before doing anything else. That function
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
163 can do whatever is appropriate to undo the loading of the library. If
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
164 `FEATURE-unload-function' returns non-nil, that suppresses the
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
165 standard unloading of the library. Otherwise the standard unloading
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
166 proceeds.
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
167
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
168 `FEATURE-unload-function' has access to the package's list of
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
169 definitions in the variable `unload-function-defs-list' and could
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
170 remove symbols from it in the event that the package has done
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
171 something strange, such as redefining an Emacs function."
76968
a188649f301c (read-feature): Reimplement. New optional arg LOADED-P.
Kim F. Storm <storm@cua.dk>
parents: 75797
diff changeset
172 (interactive
a188649f301c (read-feature): Reimplement. New optional arg LOADED-P.
Kim F. Storm <storm@cua.dk>
parents: 75797
diff changeset
173 (list
76969
8237a66e9288 (unload-feature): Add line break.
Kim F. Storm <storm@cua.dk>
parents: 76968
diff changeset
174 (read-feature "Unload feature: " t)
8237a66e9288 (unload-feature): Add line break.
Kim F. Storm <storm@cua.dk>
parents: 76968
diff changeset
175 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
176 (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
177 (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
178 (unless force
79b58e05730b (unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents: 61599
diff changeset
179 (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
180 (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
181 (when dependents
79b58e05730b (unload-feature): Update for new format of load-history. Simplify the code.
Lute Kamstra <lute@gnu.org>
parents: 61599
diff changeset
182 (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
183 (prin1-to-string dependents) file))))
79192
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
184 (let* ((unload-function-defs-list (feature-symbols feature))
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
185 (file (pop unload-function-defs-list))
75797
1c398694f7b2 (unload-feature): Handle (t . SYMBOL) entries in load history.
Richard M. Stallman <rms@gnu.org>
parents: 75687
diff changeset
186 ;; If non-nil, this is a symbol for which we should
1c398694f7b2 (unload-feature): Handle (t . SYMBOL) entries in load history.
Richard M. Stallman <rms@gnu.org>
parents: 75687
diff changeset
187 ;; restore a previous autoload if possible.
1c398694f7b2 (unload-feature): Handle (t . SYMBOL) entries in load history.
Richard M. Stallman <rms@gnu.org>
parents: 75687
diff changeset
188 restore-autoload
79145
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
189 (name (symbol-name feature))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
190 (unload-hook (intern-soft (concat name "-unload-hook")))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
191 (unload-func (intern-soft (concat name "-unload-function"))))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
192 ;; If FEATURE-unload-function is defined and returns non-nil,
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
193 ;; don't try to do anything more; otherwise proceed normally.
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
194 (unless (and (bound-and-true-p unload-func)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
195 (funcall unload-func))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
196 ;; Try to avoid losing badly when hooks installed in critical
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
197 ;; places go away. (Some packages install things on
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
198 ;; `kill-buffer-hook', `activate-menubar-hook' and the like.)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
199 (if unload-hook
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
200 ;; First off, provide a clean way for package FOO to arrange
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
201 ;; this by adding hooks on the variable `FOO-unload-hook'.
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
202 ;; This is obsolete; FEATURE-unload-function should be used now.
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
203 (run-hooks unload-hook)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
204 ;; Otherwise, do our best. Look through the obarray for symbols
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
205 ;; which seem to be hook variables or special hook functions and
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
206 ;; remove anything from them which matches the feature-symbols
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
207 ;; about to get zapped. Obviously this won't get anonymous
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
208 ;; functions which the package might just have installed, and
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
209 ;; there might be other important state, but this tactic
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
210 ;; normally works.
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
211 (mapatoms
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
212 (lambda (x)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
213 (when (and (boundp x)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
214 (or (and (consp (symbol-value x)) ; Random hooks.
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
215 (string-match "-hooks?\\'" (symbol-name x)))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
216 (memq x unload-feature-special-hooks))) ; Known abnormal hooks etc.
79192
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
217 (dolist (y unload-function-defs-list)
79145
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
218 (when (and (eq (car-safe y) 'defun)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
219 (not (get (cdr y) 'autoload)))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
220 (remove-hook x (cdr y)))))))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
221 ;; Remove any feature-symbols from auto-mode-alist as well.
79192
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
222 (dolist (y unload-function-defs-list)
79145
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
223 (when (and (eq (car-safe y) 'defun)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
224 (not (get (cdr y) 'autoload)))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
225 (setq auto-mode-alist
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
226 (rassq-delete-all (cdr y) auto-mode-alist)))))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
227 (when (fboundp 'elp-restore-function) ; remove ELP stuff first
79192
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
228 (dolist (elt unload-function-defs-list)
79145
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
229 (when (symbolp elt)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
230 (elp-restore-function elt))))
75797
1c398694f7b2 (unload-feature): Handle (t . SYMBOL) entries in load history.
Richard M. Stallman <rms@gnu.org>
parents: 75687
diff changeset
231
79192
8f2e292b71d0 (unload-function-defs-list): Renamed from unload-function-features-list.
Richard M. Stallman <rms@gnu.org>
parents: 79145
diff changeset
232 (dolist (x unload-function-defs-list)
79145
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
233 (if (consp x)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
234 (case (car x)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
235 ;; Remove any feature names that this file provided.
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
236 (provide
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
237 (setq features (delq (cdr x) features)))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
238 ((defun autoload)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
239 (let ((fun (cdr x)))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
240 (when (fboundp fun)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
241 (when (fboundp 'ad-unadvise)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
242 (ad-unadvise fun))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
243 (let ((aload (get fun 'autoload)))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
244 (if (and aload (eq fun restore-autoload))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
245 (fset fun (cons 'autoload aload))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
246 (fmakunbound fun))))))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
247 ;; (t . SYMBOL) comes before (defun . SYMBOL)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
248 ;; and says we should restore SYMBOL's autoload
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
249 ;; when we undefine it.
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
250 ((t) (setq restore-autoload (cdr x)))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
251 ((require defface) nil)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
252 (t (message "Unexpected element %s in load-history" x)))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
253 ;; Kill local values as much as possible.
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
254 (dolist (buf (buffer-list))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
255 (with-current-buffer buf
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
256 (if (and (boundp x) (timerp (symbol-value x)))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
257 (cancel-timer (symbol-value x)))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
258 (kill-local-variable x)))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
259 (if (and (boundp x) (timerp (symbol-value x)))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
260 (cancel-timer (symbol-value x)))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
261 ;; Get rid of the default binding if we can.
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
262 (unless (local-variable-if-set-p x)
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
263 (makunbound x))))
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
264 ;; Delete the load-history element for this file.
e635cd6341e6 (unload-function-features-list): Rename from `unload-hook-features-list'.
Juanma Barranquero <lekktu@gmail.com>
parents: 79140
diff changeset
265 (setq load-history (delq (assoc file load-history) load-history))))
75687
8cf73d911b65 (unload-feature): Silently ignore `load-history' entries of the form `(defface
Juanma Barranquero <lekktu@gmail.com>
parents: 75347
diff changeset
266 ;; Don't return load-history, it is not useful.
8cf73d911b65 (unload-feature): Silently ignore `load-history' entries of the form `(defface
Juanma Barranquero <lekktu@gmail.com>
parents: 75347
diff changeset
267 nil)
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 (provide 'loadhist)
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270
69935
3fc0524ae318 (unload-feature): A bit of sanity check of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69165
diff changeset
271 ;; arch-tag: 70bb846a-c413-4f01-bf88-78dba4ac0798
2543
9a1b00513968 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 ;;; loadhist.el ends here