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

[Katsumi Yamaoka]

>>>>> Lennart Borgman (gmail) wrote:

> When trying to customize the variable file-coding-system-alist I get
> the error

>   Invalid coding system: po-find-file-coding-system

> (Started Emacs with "emacs -Q".)

I tried fixing it.

2007-07-05  Katsumi Yamaoka  <yamaoka@jpl.org>

        * cus-start.el (file-coding-system-alist): Fix custom type.

*** 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