Mercurial > emacs
changeset 17508:1c2392208ad9
Don't use cl forms in defcustom declarations.
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Fri, 18 Apr 1997 12:25:09 +0000 |
| parents | fd87760f20cd |
| children | 0c38918fbf13 |
| files | lisp/lazy-lock.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/lazy-lock.el Fri Apr 18 07:08:56 1997 +0000 +++ b/lisp/lazy-lock.el Fri Apr 18 12:25:09 1997 +0000 @@ -454,8 +454,7 @@ :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 @@ :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)