From: Simon Marshall <simon@gnu.org>
Date: Fri, 18 Apr 1997 12:25:09 +0000 (+0000)
Subject: Don't use cl forms in defcustom declarations.
X-Git-Tag: emacs-20.1~2437
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc24e7fbc8b3cca6e1bf09e26a72a218f38c225e;p=emacs.git

Don't use cl forms in defcustom declarations.
---

diff --git a/lisp/lazy-lock.el b/lisp/lazy-lock.el
index 5f048d3b75f..4c894d77d85 100644
--- a/lisp/lazy-lock.el
+++ b/lisp/lazy-lock.el
@@ -454,8 +454,7 @@ taking longer to fontify, you could reduce the value of this variable."
   :group 'lazy-lock)
 
 (defcustom lazy-lock-stealth-load
-  (when (condition-case nil (load-average) (error))
-    200)
+  (if (condition-case nil (load-average) (error)) 200)
   "*Load in percentage above which stealth fontification is suspended.
 Stealth fontification pauses when the system short-term load average (as
 returned by the function `load-average' if supported) goes above this level,
@@ -484,8 +483,8 @@ See also `lazy-lock-stealth-load'."
   :group 'lazy-lock)
 
 (defcustom lazy-lock-stealth-verbose
-  (when (featurep 'lisp-float-type)
-    (and font-lock-verbose (not lazy-lock-defer-contextually)))
+  (if (featurep 'lisp-float-type)
+      (and (not lazy-lock-defer-contextually) (not (null font-lock-verbose))))
   "*If non-nil, means stealth fontification should show status messages."
   :type 'boolean
   :group 'lazy-lock)