# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1183944435 0
# Node ID d6cb0c6eace76f9a218710c26c223212ebe4639e
# Parent  d08e3bd696443653aa7e2e00faeb89cca2a73ab9
(file-coding-system-alist): Fix previous commit.

diff -r d08e3bd69644 -r d6cb0c6eace7 lisp/cus-start.el
--- a/lisp/cus-start.el	Sun Jul 08 23:43:42 2007 +0000
+++ b/lisp/cus-start.el	Mon Jul 09 01:27:15 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