From e5f5192972e30e7620e55dc33b022f629122bc2a Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 29 Oct 2002 18:51:52 +0000 Subject: [PATCH] (selection-coding-system, scalable-fonts-allowed): Added. --- lisp/ChangeLog | 15 +++++++++++++-- lisp/cus-start.el | 7 +++++++ 2 files changed, 20 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6d99a8a5960..94c7a13da28 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2002-10-29 Dave Love + + * cus-start.el (selection-coding-system, scalable-fonts-allowed): + Added. + + * progmodes/scheme.el (syntax-case): Define + scheme-indent-function. + + * international/mule-conf.el: Doc fixes. + 2002-10-29 Richard M. Stallman * server.el (server-switch-buffer): Say when no server buffers remain. @@ -16,8 +26,9 @@ 2002-10-29 Masayuki Ataka (tiny change) - * textmodes/texinfo.el (texinfo-environments): Add environment; copying, - documentdescription, ifplaintext, ifnotplaintext, and verbatim. + * textmodes/texinfo.el (texinfo-environments): Add environment; + copying, documentdescription, ifplaintext, ifnotplaintext, and + verbatim. * textmodes/texinfmt.el (texinfo-format-ifplaintext): New function. (ifplaintext, ifnotplaintext) diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 08a99ea4d68..b5161bfcb99 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -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. -- 2.39.2