Re: Bad value in file-coding-system-alist

["Lennart Borgman (gmail)" <lennart.borgman@gmail.com>]

Katsumi Yamaoka wrote:
>>>>>> Lennart Borgman (gmail) wrote:
> 
>> I have gotten exactly 0 answers to this one.
> 
> I'm sorry to have posted a reply only to the gnu.emacs.bug
> newsgroup.  I'll install the following fix in the near future.

Oh, sorry, I did not know. I do not read the newsgroups. Many thanks for 
taking a look at this.

But is this really the right fix? It looks to me like there is a more 
general bug in customize, please see the message I sent after the one 
you responded to hear.

Maybe I am missing something?


> *** cus-start.el~	Sun Jul  1 21:52:18 2007
> --- cus-start.el	Thu Jul  5 05:03:26 2007
> ***************
> *** 116,130 ****
>   	      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)
> ! 			    (function :value ignore))))
>   	     (selection-coding-system mule coding-system)
>   	     ;; dired.c
>   	     (completion-ignored-extensions dired
> --- 116,141 ----
>   	      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))))
>   	     (selection-coding-system mule coding-system)
>   	     ;; dired.c
>   	     (completion-ignored-extensions dired
> 
> Regards,
>