diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-09-25 01:15:49 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-09-25 04:15:22 +0200 |
| commit | f1071bf08e246d0820edfb66163acb65e90d9482 (patch) | |
| tree | e2c504fdd28bf79b57ea1edc644d668877cfb360 /lisp/wid-edit.el | |
| parent | 988428df7d1fc071bea5fbe7ed696f4bf62f3b5c (diff) | |
| download | emacs-f1071bf08e246d0820edfb66163acb65e90d9482.tar.gz emacs-f1071bf08e246d0820edfb66163acb65e90d9482.tar.bz2 emacs-f1071bf08e246d0820edfb66163acb65e90d9482.zip | |
New :type natnum for defcustom
* lisp/wid-edit.el (natnum): New widget type. (Bug#15809)
* doc/lispref/customize.texi (Simple Types): Document it.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index ab358da7e3f..72353b91909 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -3644,6 +3644,13 @@ match-alternatives: %S" :type-error "This field should contain an integer" :match-alternatives '(integerp)) +(define-widget 'natnum 'restricted-sexp + "A nonnegative integer." + :tag "Integer (positive)" + :value 0 + :type-error "This field should contain a nonnegative integer" + :match-alternatives '(natnump)) + (define-widget 'number 'restricted-sexp "A number (floating point or integer)." :tag "Number" |