/[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.18.1 by miles, Fri Apr 4 06:20:09 2003 UTC revision 1.22.18.2 by miles, Tue Oct 14 23:51:16 2003 UTC
# Line 98  return the feature \(symbol\)." Line 98  return the feature \(symbol\)."
98                                     features)                                     features)
99                             nil t)))                             nil t)))
100    
101  (defvar loadhist-hook-functions  (defvaralias 'loadhist-hook-functions 'unload-feature-special-hooks)
102    (defvar unload-feature-special-hooks
103    '(after-change-functions    '(after-change-functions
104      after-insert-file-functions auto-fill-function      after-insert-file-functions auto-fill-function
105      before-change-functions blink-paren-function      before-change-functions blink-paren-function
# Line 153  is nil, raise an error." Line 154  is nil, raise an error."
154                        (consp (symbol-value x))                        (consp (symbol-value x))
155                        (string-match "-hooks?\\'" (symbol-name x)))                        (string-match "-hooks?\\'" (symbol-name x)))
156                   (and (boundp x)       ; Known abnormal hooks etc.                   (and (boundp x)       ; Known abnormal hooks etc.
157                        (memq x loadhist-hook-functions)))                        (memq x unload-feature-special-hooks)))
158               (dolist (y (cdr flist))               (dolist (y (cdr flist))
159                 (remove-hook x y))))))                 (remove-hook x y))))))
160      (if (fboundp 'elp-restore-function) ; remove ELP stuff first      (if (fboundp 'elp-restore-function) ; remove ELP stuff first
# Line 189  is nil, raise an error." Line 190  is nil, raise an error."
190    
191  (provide 'loadhist)  (provide 'loadhist)
192    
193    ;;; arch-tag: 70bb846a-c413-4f01-bf88-78dba4ac0798
194  ;;; loadhist.el ends here  ;;; loadhist.el ends here

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

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