/[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.25 by miles, Mon Sep 1 15:45:13 2003 UTC revision 1.26 by rms, Sun Oct 5 13:50:18 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

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

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