32 |
;;; Code: |
;;; Code: |
33 |
|
|
34 |
(defun feature-symbols (feature) |
(defun feature-symbols (feature) |
35 |
"Return the file and list of symbols associated with a given FEATURE." |
"Return the file and list of definitions associated with FEATURE. |
36 |
|
The value is actually the element of `load-history' |
37 |
|
for the file that did (provide FEATURE)." |
38 |
(catch 'foundit |
(catch 'foundit |
39 |
(mapc (lambda (x) |
(mapc (lambda (x) |
40 |
(if (member (cons 'provide feature) (cdr x)) |
(if (member (cons 'provide feature) (cdr x)) |
100 |
|
|
101 |
(defvar loadhist-hook-functions |
(defvar loadhist-hook-functions |
102 |
'(after-change-functions |
'(after-change-functions |
103 |
after-insert-file-functions auto-fill-function |
after-insert-file-functions auto-fill-function |
104 |
before-change-functions blink-paren-function |
before-change-functions blink-paren-function |
105 |
buffer-access-fontify-functions command-line-functions |
buffer-access-fontify-functions command-line-functions |
106 |
comment-indent-function kill-buffer-query-functions |
comment-indent-function kill-buffer-query-functions |
107 |
kill-emacs-query-functions lisp-indent-function |
kill-emacs-query-functions lisp-indent-function |
108 |
mouse-position-function |
mouse-position-function |
109 |
redisplay-end-trigger-functions temp-buffer-show-function |
redisplay-end-trigger-functions temp-buffer-show-function |
110 |
window-scroll-functions window-size-change-functions |
window-scroll-functions window-size-change-functions |
111 |
write-region-annotate-functions) |
write-region-annotate-functions) |
112 |
"A list of special hooks from Info node `(elisp)Standard Hooks'. |
"A list of special hooks from Info node `(elisp)Standard Hooks'. |
113 |
|
|
114 |
These are symbols with hook-type values whose names don't end in |
These are symbols with hook-type values whose names don't end in |
166 |
((consp x) |
((consp x) |
167 |
;; Remove any feature names that this file provided. |
;; Remove any feature names that this file provided. |
168 |
(if (eq (car x) 'provide) |
(if (eq (car x) 'provide) |
169 |
(setq features (delq (cdr x) features)))) |
(setq features (delq (cdr x) features))) |
170 |
|
(when (eq (car x) 'defvar) |
171 |
|
;; Kill local values as much as possible. |
172 |
|
(dolist (buf (buffer-list)) |
173 |
|
(with-current-buffer buf |
174 |
|
(kill-local-variable (cdr x)))) |
175 |
|
;; Get rid of the default binding if we can. |
176 |
|
(unless (local-variable-if-set-p (cdr x)) |
177 |
|
(makunbound (cdr x))))) |
178 |
(t |
(t |
|
(when (boundp x) |
|
|
(makunbound x)) |
|
179 |
(when (fboundp x) |
(when (fboundp x) |
180 |
(if (fboundp 'ad-unadvise) |
(if (fboundp 'ad-unadvise) |
181 |
(ad-unadvise x)) |
(ad-unadvise x)) |