diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-02-08 20:16:52 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-02-08 20:16:52 +0000 |
| commit | b50690ccaf06f34611f9cd94df3de3da484ac1cf (patch) | |
| tree | 9a0fc2114094782ab04f49881df9bcf8573ce89c /lisp/select.el | |
| parent | 866a8ce4ed690938d4be2eddd0091e933e8a21f8 (diff) | |
| download | emacs-b50690ccaf06f34611f9cd94df3de3da484ac1cf.tar.gz | |
(selection-coding-system): Make it a defcustom, and add the properties
from cus-start.el. Bump :version.
Diffstat (limited to 'lisp/select.el')
| -rw-r--r-- | lisp/select.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/select.el b/lisp/select.el index 47e3699e281..34f63d7dd1b 100644 --- a/lisp/select.el +++ b/lisp/select.el @@ -28,7 +28,7 @@ ;;; Code: -(defvar selection-coding-system nil +(defcustom selection-coding-system nil "Coding system for communicating with other X clients. When sending text via selection and clipboard, if the target @@ -50,7 +50,14 @@ proper coding system is used according to the data-type as above. See also the documentation of the variable `x-select-request-type' how to control which data-type to request for receiving text. -The default value is nil.") +The default value is nil." + :type 'coding-system + :group 'mule + ;; Default was compound-text-with-extensions in 22.x (pre-unicode). + :version "23.1" + :set (lambda (symbol value) + (set-selection-coding-system value) + (set symbol value))) (defvar next-selection-coding-system nil "Coding system for the next communication with other X clients. |