mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(selection-coding-system): Make it a defcustom, and add the properties

Browse Source 
from cus-start.el.  Bump :version.
This commit is contained in:
Glenn Morris 2008-02-08 20:16:52 +00:00
parent 866a8ce4ed
commit b50690ccaf
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -21,6 +21,11 @@
2008-02-08 Glenn Morris <rgm@gnu.org>
* cus-start.el (selection-coding-system): Remove, since it's now
defined in select.el rather than in xselect.c.
* select.el (selection-coding-system): Make it a defcustom, and
add the properties from cus-start.el. Bump :version.
* custom.el (custom-theme-set-variables): Sort symbols that are
dependencies before symbols that depend on them.
(custom-enabled-themes): Set after custom-theme-directory.

11
lisp/select.el
View File

@ -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.