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