procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(set-selection-coding-system): Make it

Browse source 
interactive.
(last-next-selection-coding-system): New variable.
(set-next-selection-coding-system): New function.
This commit is contained in:
Kenichi Handa 1998-08-15 01:28:14 +00:00
parent cf6991a32e
commit a03b3ce13b
1 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/international/mule.el
View file

@ -759,9 +759,31 @@ For a list of possible values of CODING-SYSTEM, use \\[list-coding-systems]."
"Make CODING-SYSTEM used for communicating with other X clients .
When sending or receiving text via cut_buffer, selection, and clipboard,
the text is encoded or decoded by CODING-SYSTEM."
(interactive "zCoding system for X selection: ")
(check-coding-system coding-system)
(setq selection-coding-system coding-system))
;; Coding system lastly specfied by the command
;; set-next-selection-coding-system.
(defvar last-next-selection-coding-system nil)
(defun set-next-selection-coding-system (coding-system)
"Make CODING-SYSTEM used for the next communication with other X clients.
This setting is effective for the next communication only."
(interactive
(list (read-coding-system
(if last-next-selection-coding-system
(format "Coding system for the next X selection (default, %S): "
last-next-selection-coding-system)
"Coding system for the next X selection: ")
last-next-selection-coding-system)))
(if coding-system
(setq last-next-selection-coding-system coding-system)
(setq coding-system last-next-selection-coding-system))
(check-coding-system coding-system)
(setq next-selection-coding-system coding-system))
(defun set-coding-priority (arg)
"Set priority of coding categories according to LIST.
LIST is a list of coding categories ordered by priority."