changeset 79254:27dd3dfdc98d

(unload-feature): Remove erroneous check for the FEATURE-unload-function variable; check the existence of the function (that's what the docstring says, and it makes more sense).
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 30 Oct 2007 00:14:03 +0000
parents 65f2523c9f23
children 3e37b479924d
files lisp/loadhist.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/loadhist.el	Tue Oct 30 00:01:11 2007 +0000
+++ b/lisp/loadhist.el	Tue Oct 30 00:14:03 2007 +0000
@@ -200,7 +200,7 @@
 	 (unload-func (intern-soft (concat name "-unload-function"))))
     ;; If FEATURE-unload-function is defined and returns non-nil,
     ;; don't try to do anything more; otherwise proceed normally.
-    (unless (and (bound-and-true-p unload-func)
+    (unless (and unload-func (fboundp unload-func)
 		 (funcall unload-func))
       ;; Try to avoid losing badly when hooks installed in critical
       ;; places go away.  (Some packages install things on