bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Katsumi Yamaoka
Subject: Re: Bad value in file-coding-system-alist
Date: Thu, 05 Jul 2007 14:12:53 +0900
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.1.50 (gnu/linux)

>>>>> 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  <address@hidden>

        * 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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]