diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2011-01-11 16:45:11 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2011-01-11 16:45:11 +0000 |
| commit | 2f1ae62a2f70c151d16171e218b126d558b5fa98 (patch) | |
| tree | 6bfaf67accd1912a8a03356d50f50938e0a2dbf0 /generic/pg-pamacs.el | |
| parent | 4809eb1289b8ce61fce357ac04d2c0eb9644f3e4 (diff) | |
'float -> 'number
Diffstat (limited to 'generic/pg-pamacs.el')
| -rw-r--r-- | generic/pg-pamacs.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/pg-pamacs.el b/generic/pg-pamacs.el index e7943461..20b6b4ef 100644 --- a/generic/pg-pamacs.el +++ b/generic/pg-pamacs.el @@ -165,6 +165,8 @@ Usage: (defpgdefault SYM VALUE)" (setq args (cdr args))) ((eq (car args) :type) (setq type (cadr args)) + (if (eq type 'float) + (setq type 'number)) ; widget type for defcustom (setq args (cdr args)) (setq newargs (cons type (cons :type newargs)))) (t @@ -175,7 +177,7 @@ Usage: (defpgdefault SYM VALUE)" (unless (and type (or (eq (eval type) 'boolean) (eq (eval type) 'integer) - (eq (eval type) 'float) + (eq (eval type) 'number) (eq (eval type) 'string))) (error "defpacustom: missing :type keyword or wrong :type value")) ;; Debug message in case a defpacustom is repeated. |