From a03b3ce13b064a5f775525d8208e747b87a169cf Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 15 Aug 1998 01:28:14 +0000 Subject: [PATCH] (set-selection-coding-system): Make it interactive. (last-next-selection-coding-system): New variable. (set-next-selection-coding-system): New function. --- lisp/international/mule.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index d6ea0b46197..7544bf5b234 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -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." -- 2.39.5