From a0989ebd96d6e15f24f902a45b9147b10c912974 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Wed, 12 Jan 2011 10:09:41 +0000
Subject: Fix quoting in 'float patch.

---
 generic/pg-pamacs.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/pg-pamacs.el b/generic/pg-pamacs.el
index 60863d13..a8e3f67c 100644
--- a/generic/pg-pamacs.el
+++ b/generic/pg-pamacs.el
@@ -165,8 +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
+	(if (eq (eval type) 'float)
+	    (setq type (quote 'number))) ; widget type for defcustom
 	(setq args (cdr args))
 	(setq newargs (cons type (cons :type newargs))))
        (t
-- 
cgit v1.2.3