Mercurial > emacs

changeset 48075:801530a6c168

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(selection-coding-system, scalable-fonts-allowed): Added.
author Dave Love <fx@gnu.org>
date Tue, 29 Oct 2002 18:50:29 +0000
parents a3d1322abc88
children cfd8d2ecd2a8
files lisp/cus-start.el
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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.