Mercurial > emacs
comparison lisp/calculator.el @ 62531:c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 19 May 2005 19:06:19 +0000 |
| parents | 956483cc3659 |
| children | eb01420c0088 f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
| 62530:eb9babbd0025 | 62531:c905fcf5e3d9 |
|---|---|
| 103 | 103 |
| 104 (defcustom calculator-radix-grouping-mode t | 104 (defcustom calculator-radix-grouping-mode t |
| 105 "*Use digit grouping in radix output mode. | 105 "*Use digit grouping in radix output mode. |
| 106 If this is set, chunks of `calculator-radix-grouping-digits' characters | 106 If this is set, chunks of `calculator-radix-grouping-digits' characters |
| 107 will be separated by `calculator-radix-grouping-separator' when in radix | 107 will be separated by `calculator-radix-grouping-separator' when in radix |
| 108 output mode is active (determined by `calculator-output-radix').") | 108 output mode is active (determined by `calculator-output-radix')." |
| 109 :type 'boolean | |
| 110 :group 'calculator) | |
| 109 | 111 |
| 110 (defcustom calculator-radix-grouping-digits 4 | 112 (defcustom calculator-radix-grouping-digits 4 |
| 111 "*The number of digits used for grouping display in radix modes. | 113 "*The number of digits used for grouping display in radix modes. |
| 112 See `calculator-radix-grouping-mode'.") | 114 See `calculator-radix-grouping-mode'." |
| 115 :type 'integer | |
| 116 :group 'calculator) | |
| 113 | 117 |
| 114 (defcustom calculator-radix-grouping-separator "'" | 118 (defcustom calculator-radix-grouping-separator "'" |
| 115 "*The separator used in radix grouping display. | 119 "*The separator used in radix grouping display. |
| 116 See `calculator-radix-grouping-mode'.") | 120 See `calculator-radix-grouping-mode'." |
| 121 :type 'string | |
| 122 :group 'calculator) | |
| 117 | 123 |
| 118 (defcustom calculator-remove-zeros t | 124 (defcustom calculator-remove-zeros t |
| 119 "*Non-nil value means delete all redundant zero decimal digits. | 125 "*Non-nil value means delete all redundant zero decimal digits. |
| 120 If this value is not t, and not nil, redundant zeros are removed except | 126 If this value is not t, and not nil, redundant zeros are removed except |
| 121 for one and if it is nil, nothing is removed. | 127 for one and if it is nil, nothing is removed. |
| 138 associated with the displayer function (for example to change the number | 144 associated with the displayer function (for example to change the number |
| 139 of digits displayed). | 145 of digits displayed). |
| 140 | 146 |
| 141 An exception to the above is the case of the list (std C) where C is a | 147 An exception to the above is the case of the list (std C) where C is a |
| 142 character, in this case the `calculator-standard-displayer' function | 148 character, in this case the `calculator-standard-displayer' function |
| 143 will be used with this character for a format string.") | 149 will be used with this character for a format string." |
| 150 :group 'calculator) | |
| 144 | 151 |
| 145 (defcustom calculator-displayers | 152 (defcustom calculator-displayers |
| 146 '(((std ?n) "Standard display, decimal point or scientific") | 153 '(((std ?n) "Standard display, decimal point or scientific") |
| 147 (calculator-eng-display "Eng display") | 154 (calculator-eng-display "Eng display") |
| 148 ((std ?f) "Standard display, decimal point") | 155 ((std ?f) "Standard display, decimal point") |
| 167 | 174 |
| 168 (defcustom calculator-copy-displayer nil | 175 (defcustom calculator-copy-displayer nil |
| 169 "*If non-nil, this is any value that can be used for | 176 "*If non-nil, this is any value that can be used for |
| 170 `calculator-displayer', to format a string before copying it with | 177 `calculator-displayer', to format a string before copying it with |
| 171 `calculator-copy'. If nil, then `calculator-displayer's normal value is | 178 `calculator-copy'. If nil, then `calculator-displayer's normal value is |
| 172 used.") | 179 used." |
| 180 :type 'boolean | |
| 181 :group 'calculator) | |
| 173 | 182 |
| 174 (defcustom calculator-2s-complement nil | 183 (defcustom calculator-2s-complement nil |
| 175 "*If non-nil, show negative numbers in 2s complement in radix modes. | 184 "*If non-nil, show negative numbers in 2s complement in radix modes. |
| 176 Otherwise show as a negative number." | 185 Otherwise show as a negative number." |
| 177 :type 'boolean | 186 :type 'boolean |