1 |
;;; x-win.el --- parse relevant switches and set up for X -*-coding: iso-2022-7bit;-*- |
;;; x-win.el --- parse relevant switches and set up for X -*-coding: iso-2022-7bit;-*- |
2 |
|
|
3 |
;; Copyright (C) 1993, 1994, 2001, 2002, 2005 Free Software Foundation, Inc. |
;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, |
4 |
|
;; 2005 Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: FSF |
;; Author: FSF |
7 |
;; Keywords: terminals, i18n |
;; Keywords: terminals, i18n |
2243 |
(if text |
(if text |
2244 |
(remove-text-properties 0 (length text) '(foreign-selection nil) text)) |
(remove-text-properties 0 (length text) '(foreign-selection nil) text)) |
2245 |
text)) |
text)) |
2246 |
|
|
2247 |
;;; Return the value of the current X selection. |
;;; Return the value of the current X selection. |
2248 |
;;; Consult the selection, and the cut buffer. Treat empty strings |
;;; Consult the selection, and the cut buffer. Treat empty strings |
2249 |
;;; as if they were unset. |
;;; as if they were unset. |