/[emacs]/emacs/lisp/loadhist.el
ViewVC logotype

Diff of /emacs/lisp/loadhist.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by fx, Tue Oct 31 12:02:51 2000 UTC revision 1.22.18.1 by miles, Fri Apr 4 06:20:09 2003 UTC
# Line 32  Line 32 
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))
# Line 98  return the feature \(symbol\)." Line 100  return the feature \(symbol\)."
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
# Line 164  is nil, raise an error." Line 166  is nil, raise an error."
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))

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.22.18.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26