# HG changeset patch # User Dave Love # Date 1035917429 0 # Node ID 801530a6c1682a73b9036d4a902004a4eb629f62 # Parent a3d1322abc889a768c4ae553055a3793f1aba83a (selection-coding-system, scalable-fonts-allowed): Added. diff -r a3d1322abc88 -r 801530a6c168 lisp/cus-start.el --- a/lisp/cus-start.el Tue Oct 29 18:48:30 2002 +0000 +++ b/lisp/cus-start.el Tue Oct 29 18:50:29 2002 +0000 @@ -82,6 +82,7 @@ (coding-system :tag "Single coding system" :value undecided) (function :value ignore)))) + (selection-coding-system mule coding-system) ;; dired.c (completion-ignored-extensions dired (repeat (string :format "%v"))) @@ -255,6 +256,8 @@ :format "%v") (other :tag "Unlimited" t))) (unibyte-display-via-language-environment mule boolean) + ;; xfaces.c + (scalable-fonts-allowed display boolean) ;; xfns.c (x-bitmap-file-path installation (repeat (directory :format "%v"))) @@ -312,6 +315,10 @@ (put symbol 'custom-version version))))) (custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable) +(put 'selection-coding-system 'custom-set + (lambda (symbol value) + (set-selection-coding-system value) + (set symbol value))) ;; Record cus-start as loaded ;; if we have set up all the info that we can set up.