Mercurial > emacs
comparison lisp/custom.el @ 64303:e2e79eb7ab71
Whitespace changes.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Thu, 14 Jul 2005 01:19:10 +0000 |
| parents | 8bf3ae544cd2 |
| children | d0cd5eb4d042 fbb2bea03df9 |
comparison
equal
deleted
inserted
replaced
| 64302:8bf3ae544cd2 | 64303:e2e79eb7ab71 |
|---|---|
| 79 (defun custom-initialize-safe-set (symbol value) | 79 (defun custom-initialize-safe-set (symbol value) |
| 80 "Like `custom-initialize-set', but catches errors. | 80 "Like `custom-initialize-set', but catches errors. |
| 81 If an error occurs during initialization, SYMBOL is set to nil | 81 If an error occurs during initialization, SYMBOL is set to nil |
| 82 and no error is thrown. This is meant for use in pre-loaded files | 82 and no error is thrown. This is meant for use in pre-loaded files |
| 83 where some variables or functions used to compute VALUE may not yet | 83 where some variables or functions used to compute VALUE may not yet |
| 84 be defined. You can then re-evaluate VALUE in startup.el, for instance | 84 be defined. You can then re-evaluate VALUE in startup.el, for instance |
| 85 using `custom-reevaluate-setting'." | 85 using `custom-reevaluate-setting'." |
| 86 (condition-case nil | 86 (condition-case nil |
| 87 (custom-initialize-set symbol value) | 87 (custom-initialize-set symbol value) |
| 88 (error (set-default symbol nil)))) | 88 (error (set-default symbol nil)))) |
| 89 | 89 |
| 90 (defun custom-initialize-safe-default (symbol value) | 90 (defun custom-initialize-safe-default (symbol value) |
| 91 "Like `custom-initialize-default', but catches errors. | 91 "Like `custom-initialize-default', but catches errors. |
| 92 If an error occurs during initialization, SYMBOL is set to nil | 92 If an error occurs during initialization, SYMBOL is set to nil |
| 93 and no error is thrown. This is meant for use in pre-loaded files | 93 and no error is thrown. This is meant for use in pre-loaded files |
| 94 where some variables or functions used to compute VALUE may not yet | 94 where some variables or functions used to compute VALUE may not yet |
| 95 be defined. You can then re-evaluate VALUE in startup.el, for instance | 95 be defined. You can then re-evaluate VALUE in startup.el, for instance |
| 96 using `custom-reevaluate-setting'." | 96 using `custom-reevaluate-setting'." |
| 97 (condition-case nil | 97 (condition-case nil |
| 98 (custom-initialize-default symbol value) | 98 (custom-initialize-default symbol value) |
| 99 (error (set-default symbol nil)))) | 99 (error (set-default symbol nil)))) |
| 100 | 100 |