diff options
| author | Simon Marshall <simon@gnu.org> | 1997-04-18 12:25:09 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1997-04-18 12:25:09 +0000 |
| commit | fc24e7fbc8b3cca6e1bf09e26a72a218f38c225e (patch) | |
| tree | 0e29814634443bf47b9b255e38d9145c8694b7db /lisp/lazy-lock.el | |
| parent | b34aa0a311d74642f5403938939a8cbaac76d5f7 (diff) | |
| download | emacs-fc24e7fbc8b3cca6e1bf09e26a72a218f38c225e.tar.gz | |
Don't use cl forms in defcustom declarations.
Diffstat (limited to 'lisp/lazy-lock.el')
| -rw-r--r-- | lisp/lazy-lock.el | 7 |
1 files changed, 3 insertions, 4 deletions
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) |