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

[Katsumi Yamaoka]

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

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