--- preview.el	18 Oct 2006 19:45:01 +0200	1.277
+++ preview.el	23 Oct 2006 18:34:16 +0200	
@@ -1456,9 +1456,9 @@
 Fallback to :inherit and 'default implemented."
   :group 'preview-appearance)
 
-(defcustom preview-auto-reveal `(preview-arrived-via
-				 ,(key-binding [left])
-				 ,(key-binding [right]))
+(defcustom preview-auto-reveal '(eval (preview-arrived-via
+				       (key-binding [left])
+				       (key-binding [right])))
   "*Cause previews to open automatically when entered.
 Possibilities are:
 T autoopens,
@@ -1471,13 +1471,13 @@
 point and current buffer point to the position in question.
 All of the options show reasonable defaults."
   :group 'preview-appearance
-  :type `(choice (const :tag "Off" nil)
+  :type '(choice (const :tag "Off" nil)
 		 (const :tag "On" t)
 		 (symbol :tag "Indirect variable" :value reveal-mode)
 		 (cons :tag "Function call"
-		       :value (preview-arrived-via
-			       ,(key-binding [left])
-			       ,(key-binding [right]))
+		       :value (eval (preview-arrived-via
+				     (key-binding [left])
+				     (key-binding [right])))
 		       function (list :tag "Argument list"
 				      (repeat :inline t sexp)))))