diff options
| author | Stefan Monnier | 2000-06-11 05:26:41 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-06-11 05:26:41 +0000 |
| commit | 76d1e5a4992402e8ed5c7eeec2eecabfdf3c4270 (patch) | |
| tree | d8e73db371f122aa016bf7b2729a98090300b90f | |
| parent | e8139c11fb471e2c1ae0be2a2f59b4e045f0ed63 (diff) | |
| download | emacs-76d1e5a4992402e8ed5c7eeec2eecabfdf3c4270.tar.gz emacs-76d1e5a4992402e8ed5c7eeec2eecabfdf3c4270.zip | |
(mouse-avoidance-random-shape): Don't quote lambda.
| -rw-r--r-- | lisp/avoid.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/avoid.el b/lisp/avoid.el index 47e8c6adf87..f5712427964 100644 --- a/lisp/avoid.el +++ b/lisp/avoid.el | |||
| @@ -257,9 +257,9 @@ redefine this function to suit your own tastes." | |||
| 257 | (if (null mouse-avoidance-pointer-shapes) | 257 | (if (null mouse-avoidance-pointer-shapes) |
| 258 | (progn | 258 | (progn |
| 259 | (setq mouse-avoidance-pointer-shapes | 259 | (setq mouse-avoidance-pointer-shapes |
| 260 | (mapcar '(lambda (x) (symbol-value (intern x))) | 260 | (mapcar (lambda (x) (symbol-value (intern x))) |
| 261 | (all-completions "x-pointer-" obarray | 261 | (all-completions "x-pointer-" obarray |
| 262 | '(lambda (x) | 262 | (lambda (x) |
| 263 | (and (boundp x) | 263 | (and (boundp x) |
| 264 | (integerp (symbol-value x))))))) | 264 | (integerp (symbol-value x))))))) |
| 265 | (setq mouse-avoidance-n-pointer-shapes | 265 | (setq mouse-avoidance-n-pointer-shapes |