diff options
Diffstat (limited to 'lisp/select.el')
| -rw-r--r-- | lisp/select.el | 87 |
1 files changed, 32 insertions, 55 deletions
diff --git a/lisp/select.el b/lisp/select.el index 9e7d844ff22..1f5191e86c1 100644 --- a/lisp/select.el +++ b/lisp/select.el @@ -1,12 +1,10 @@ ;;; select.el --- lisp portion of standard selection support +;; Copyright (C) 1993-1994, 2001-2011 Free Software Foundation, Inc. + ;; Maintainer: FSF ;; Keywords: internal -;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007, -;; 2008, 2009, 2010, 2011 Free Software Foundation, Inc. -;; Based partially on earlier release by Lucid. - ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify @@ -24,11 +22,20 @@ ;;; Commentary: +;; Based partially on earlier release by Lucid. + ;;; Code: (defcustom selection-coding-system nil - "Coding system for communicating with other X clients. + "Coding system for communicating with other programs. + +For MS-Windows and MS-DOS: +When sending or receiving text via selection and clipboard, the text +is encoded or decoded by this coding system. The default value is +the current system default encoding on 9x/Me, `utf-16le-dos' +\(Unicode) on NT/W2K/XP, and `iso-latin-1-dos' on MS-DOS. +For X Windows: When sending text via selection and clipboard, if the target data-type matches with the type of this coding system, it is used for encoding the text. Otherwise (including the case that this @@ -58,11 +65,11 @@ The default value is nil." (set symbol value))) (defvar next-selection-coding-system nil - "Coding system for the next communication with other X clients. + "Coding system for the next communication with other programs. Usually, `selection-coding-system' is used for communicating with -other X clients. But, if this variable is set, it is used for -the next communication only. After the communication, this -variable is set to nil.") +other programs (X Windows clients or MS Windows programs). But, if this +variable is set, it is used for the next communication only. +After the communication, this variable is set to nil.") (declare-function x-get-selection-internal "xselect.c" (selection-symbol target-type &optional time-stamp)) @@ -175,36 +182,6 @@ are not available to other programs." (symbolp data) (integerp data))) -;;; Cut Buffer support - -(declare-function x-get-cut-buffer-internal "xselect.c") - -(defun x-get-cut-buffer (&optional which-one) - "Return the value of one of the 8 X server cut-buffers. -Optional arg WHICH-ONE should be a number from 0 to 7, defaulting to 0. -Cut buffers are considered obsolete; you should use selections instead." - (x-get-cut-buffer-internal - (if which-one - (aref [CUT_BUFFER0 CUT_BUFFER1 CUT_BUFFER2 CUT_BUFFER3 - CUT_BUFFER4 CUT_BUFFER5 CUT_BUFFER6 CUT_BUFFER7] - which-one) - 'CUT_BUFFER0))) - -(declare-function x-rotate-cut-buffers-internal "xselect.c") -(declare-function x-store-cut-buffer-internal "xselect.c") - -(defun x-set-cut-buffer (string &optional push) - "Store STRING into the X server's primary cut buffer. -If PUSH is non-nil, also rotate the cut buffers: -this means the previous value of the primary cut buffer moves to the second -cut buffer, and the second to the third, and so on (there are 8 buffers.) -Cut buffers are considered obsolete; you should use selections instead." - (or (stringp string) (signal 'wrong-type-argument (list 'stringp string))) - (if push - (x-rotate-cut-buffers-internal 1)) - (x-store-cut-buffer-internal 'CUT_BUFFER0 string)) - - ;; Functions to convert the selection into various other selection types. ;; Every selection type that Emacs handles is implemented this way, except ;; for TIMESTAMP, which is a special case. @@ -236,7 +213,7 @@ two markers or an overlay. Otherwise, it is nil." (defun xselect--int-to-cons (n) (cons (ash n -16) (logand n 65535))) -(defun xselect-convert-to-string (selection type value) +(defun xselect-convert-to-string (_selection type value) (let (str coding) ;; Get the actual string from VALUE. (cond ((stringp value) @@ -302,7 +279,7 @@ two markers or an overlay. Otherwise, it is nil." (setq next-selection-coding-system nil) (cons type str)))) -(defun xselect-convert-to-length (selection type value) +(defun xselect-convert-to-length (_selection _type value) (let ((len (cond ((stringp value) (length value)) ((setq value (xselect--selection-bounds value)) @@ -310,7 +287,7 @@ two markers or an overlay. Otherwise, it is nil." (if len (xselect--int-to-cons len)))) -(defun xselect-convert-to-targets (selection type value) +(defun xselect-convert-to-targets (_selection _type _value) ;; return a vector of atoms, but remove duplicates first. (let* ((all (cons 'TIMESTAMP (mapcar 'car selection-converter-alist))) (rest all)) @@ -323,25 +300,25 @@ two markers or an overlay. Otherwise, it is nil." (setq rest (cdr rest))))) (apply 'vector all))) -(defun xselect-convert-to-delete (selection type value) +(defun xselect-convert-to-delete (selection _type _value) (x-disown-selection-internal selection) ;; A return value of nil means that we do not know how to do this conversion, ;; and replies with an "error". A return value of NULL means that we have ;; done the conversion (and any side-effects) but have no value to return. 'NULL) -(defun xselect-convert-to-filename (selection type value) +(defun xselect-convert-to-filename (_selection _type value) (when (setq value (xselect--selection-bounds value)) (buffer-file-name (nth 2 value)))) -(defun xselect-convert-to-charpos (selection type value) +(defun xselect-convert-to-charpos (_selection _type value) (when (setq value (xselect--selection-bounds value)) (let ((beg (1- (nth 0 value))) ; zero-based (end (1- (nth 1 value)))) (cons 'SPAN (vector (xselect--int-to-cons (min beg end)) (xselect--int-to-cons (max beg end))))))) -(defun xselect-convert-to-lineno (selection type value) +(defun xselect-convert-to-lineno (_selection _type value) (when (setq value (xselect--selection-bounds value)) (with-current-buffer (nth 2 value) (let ((beg (line-number-at-pos (nth 0 value))) @@ -349,7 +326,7 @@ two markers or an overlay. Otherwise, it is nil." (cons 'SPAN (vector (xselect--int-to-cons (min beg end)) (xselect--int-to-cons (max beg end)))))))) -(defun xselect-convert-to-colno (selection type value) +(defun xselect-convert-to-colno (_selection _type value) (when (setq value (xselect--selection-bounds value)) (with-current-buffer (nth 2 value) (let ((beg (progn (goto-char (nth 0 value)) (current-column))) @@ -357,35 +334,35 @@ two markers or an overlay. Otherwise, it is nil." (cons 'SPAN (vector (xselect--int-to-cons (min beg end)) (xselect--int-to-cons (max beg end)))))))) -(defun xselect-convert-to-os (selection type size) +(defun xselect-convert-to-os (_selection _type _size) (symbol-name system-type)) -(defun xselect-convert-to-host (selection type size) +(defun xselect-convert-to-host (_selection _type _size) (system-name)) -(defun xselect-convert-to-user (selection type size) +(defun xselect-convert-to-user (_selection _type _size) (user-full-name)) -(defun xselect-convert-to-class (selection type size) +(defun xselect-convert-to-class (_selection _type _size) "Convert selection to class. This function returns the string \"Emacs\"." "Emacs") ;; We do not try to determine the name Emacs was invoked with, ;; because it is not clean for a program's behavior to depend on that. -(defun xselect-convert-to-name (selection type size) +(defun xselect-convert-to-name (_selection _type _size) "Convert selection to name. This function returns the string \"emacs\"." "emacs") -(defun xselect-convert-to-integer (selection type value) +(defun xselect-convert-to-integer (_selection _type value) (and (integerp value) (xselect--int-to-cons value))) -(defun xselect-convert-to-atom (selection type value) +(defun xselect-convert-to-atom (_selection _type value) (and (symbolp value) value)) -(defun xselect-convert-to-identity (selection type value) ; used internally +(defun xselect-convert-to-identity (_selection _type value) ; used internally (vector value)) (setq selection-converter-alist |