Mercurial > emacs

comparison lisp/international/mule.el @ 23030:d2ceee5cd572

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-selection-coding-system): Make it interactive. (last-next-selection-coding-system): New variable. (set-next-selection-coding-system): New function.
author Kenichi Handa <handa@m17n.org>
date Sat, 15 Aug 1998 01:28:14 +0000
parents 77e68af369b1
children 896708140990
comparison
equal deleted inserted replaced
23029:0105e2a62bcf 23030:d2ceee5cd572
757 757
758 (defun set-selection-coding-system (coding-system) 758 (defun set-selection-coding-system (coding-system)
759 "Make CODING-SYSTEM used for communicating with other X clients . 759 "Make CODING-SYSTEM used for communicating with other X clients .
760 When sending or receiving text via cut_buffer, selection, and clipboard, 760 When sending or receiving text via cut_buffer, selection, and clipboard,
761 the text is encoded or decoded by CODING-SYSTEM." 761 the text is encoded or decoded by CODING-SYSTEM."
762 (interactive "zCoding system for X selection: ")
762 (check-coding-system coding-system) 763 (check-coding-system coding-system)
763 (setq selection-coding-system coding-system)) 764 (setq selection-coding-system coding-system))
765
766 ;; Coding system lastly specfied by the command
767 ;; set-next-selection-coding-system.
768 (defvar last-next-selection-coding-system nil)
769
770 (defun set-next-selection-coding-system (coding-system)
771 "Make CODING-SYSTEM used for the next communication with other X clients.
772 This setting is effective for the next communication only."
773 (interactive
774 (list (read-coding-system
775 (if last-next-selection-coding-system
776 (format "Coding system for the next X selection (default, %S): "
777 last-next-selection-coding-system)
778 "Coding system for the next X selection: ")
779 last-next-selection-coding-system)))
780 (if coding-system
781 (setq last-next-selection-coding-system coding-system)
782 (setq coding-system last-next-selection-coding-system))
783 (check-coding-system coding-system)
784
785 (setq next-selection-coding-system coding-system))
764 786
765 (defun set-coding-priority (arg) 787 (defun set-coding-priority (arg)
766 "Set priority of coding categories according to LIST. 788 "Set priority of coding categories according to LIST.
767 LIST is a list of coding categories ordered by priority." 789 LIST is a list of coding categories ordered by priority."
768 (let ((l arg) 790 (let ((l arg)