Mercurial > emacs

comparison lisp/select.el @ 19142:fffebc19fe53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-get-selection): Change default for data-type back to `STRING'.
author Richard M. Stallman <rms@gnu.org>
date Mon, 04 Aug 1997 07:46:26 +0000
parents f1932b36f01d
children 73efdb6af008
comparison
equal deleted inserted replaced
19141:9e0468e59b5f 19142:fffebc19fe53
27 ;; This is for temporary compatibility with pre-release Emacs 19. 27 ;; This is for temporary compatibility with pre-release Emacs 19.
28 (defalias 'x-selection 'x-get-selection) 28 (defalias 'x-selection 'x-get-selection)
29 (defun x-get-selection (&optional type data-type) 29 (defun x-get-selection (&optional type data-type)
30 "Return the value of an X Windows selection. 30 "Return the value of an X Windows selection.
31 The argument TYPE (default `PRIMARY') says which selection, 31 The argument TYPE (default `PRIMARY') says which selection,
32 and the argument DATA-TYPE (default `COMPOUND_TEXT') says 32 and the argument DATA-TYPE (default `STRING') says
33 how to convert the data." 33 how to convert the data."
34 (x-get-selection-internal (or type 'PRIMARY) (or data-type 'COMPOUND_TEXT))) 34 (x-get-selection-internal (or type 'PRIMARY) (or data-type 'STRING)))
35 35
36 (defun x-get-clipboard () 36 (defun x-get-clipboard ()
37 "Return text pasted to the clipboard." 37 "Return text pasted to the clipboard."
38 (x-get-selection-internal 'CLIPBOARD 'STRING)) 38 (x-get-selection-internal 'CLIPBOARD 'STRING))
39 39