Commit 28d8dff1 authored by Dave Love's avatar Dave Love
Browse files

(loadhist-hook-functions): Remove before-change-function,

after-change-function.
(unload-feature): Deal with symbols which are both bound and fbound.
parent 7b0c573e
2000-05-31 Dave Love <fx@gnu.org>
* loadhist.el (loadhist-hook-functions): Remove
before-change-function, after-change-function.
(unload-feature): Deal with symbols which are both bound and
fbound.
* mouse.el (mouse-save-then-kill-delete-region): Don't bind
before-change-function, after-change-function.
* simple.el (newline): Don't bind before-change-function,
after-change-function.
2000-05-31 Rajesh Vaidheeswarran <rv@gnu.org>
* whitespace.el (whitespace-rescan-timer-time): Update interval
......
......@@ -97,8 +97,8 @@ return the feature \(symbol\)."
nil t)))
(defvar loadhist-hook-functions
'(after-change-function after-change-functions
after-insert-file-functions auto-fill-function before-change-function
'(after-change-functions
after-insert-file-functions auto-fill-function
before-change-functions blink-paren-function
buffer-access-fontify-functions command-line-functions
comment-indent-function kill-buffer-query-functions
......@@ -161,11 +161,13 @@ is nil, raise an error."
;; Remove any feature names that this file provided.
(if (eq (car x) 'provide)
(setq features (delq (cdr x) features))))
((boundp x) (makunbound x))
((fboundp x)
(fmakunbound x)
(let ((aload (get x 'autoload)))
(if aload (fset x (cons 'autoload aload)))))))
(t
(when (boundp x)
(makunbound x))
(when (fboundp x)
(fmakunbound x)
(let ((aload (get x 'autoload)))
(if aload (fset x (cons 'autoload aload))))))))
(cdr flist))
;; Delete the load-history element for this file.
(let ((elt (assoc file load-history)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment