# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1183944440 0
# Node ID 35e7de7eae2974375ccc8af4a73591c7073d287b
# Parent  39b6c880bfa33f5e126d600aeaf9d58ae1035167
(file-coding-system-alist): Fix previous commit.

diff -r 39b6c880bfa3 -r 35e7de7eae29 lisp/cus-start.el
--- a/lisp/cus-start.el	Sun Jul 08 23:44:03 2007 +0000
+++ b/lisp/cus-start.el	Mon Jul 09 01:27:20 2007 +0000
@@ -116,26 +116,18 @@
 	      mule
 	      (alist
 	       :key-type (regexp :tag "File regexp")
-	       :value-type
-	       (choice
-		:value (undecided . undecided)
-		(cons :tag "Encoding/decoding pair"
-		      :value (undecided . undecided)
-		      (coding-system :tag "Decoding")
-		      (coding-system :tag "Encoding"))
-		(coding-system
-		 :tag "Single coding system"
-		 :value undecided
-		 :validate
-		 (lambda (widget)
-		   (unless (or (coding-system-p (widget-value widget))
-			       (functionp (widget-value widget)))
-		     (widget-put
-		      widget
-		      :error (format "Invalid coding system: %S"
-				     (widget-value widget)))
-		     widget)))
-		(function :value ignore))))
+	       :value-type (choice
+			    :value (undecided . undecided)
+			    (cons :tag "Encoding/decoding pair"
+				  :value (undecided . undecided)
+				  (coding-system :tag "Decoding")
+				  (coding-system :tag "Encoding"))
+			    (coding-system
+			     :tag "Single coding system"
+			     :value undecided
+			     :match (lambda (widget value)
+				      (and value (not (functionp value)))))
+			    (function :value ignore))))
 	     (selection-coding-system mule coding-system)
 	     ;; dired.c
 	     (completion-ignored-extensions dired