Mercurial > emacs
comparison lisp/term/pc-win.el @ 111734:e492c86d8f6c
term/pc-win.el (x-get-selection-internal): Emulation for MS-DOS.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Fri, 26 Nov 2010 20:38:40 +0200 |
parents | 72ef880ed198 |
children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
111733:3a6d978e6636 | 111734:e492c86d8f6c |
---|---|
285 (defun x-disown-selection-internal (selection &optional time) | 285 (defun x-disown-selection-internal (selection &optional time) |
286 "If we own the selection SELECTION, disown it. | 286 "If we own the selection SELECTION, disown it. |
287 Disowning it means there is no such selection." | 287 Disowning it means there is no such selection." |
288 (if (x-selection-owner-p selection) | 288 (if (x-selection-owner-p selection) |
289 t)) | 289 t)) |
290 | |
291 ;; x-get-selection-internal is used in select.el | |
292 (defun x-get-selection-internal (selection type &optional time_stamp) | |
293 "Return text selected from some X window. | |
294 SELECTION is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'. | |
295 \(Those are literal upper-case symbol names, since that's what X expects.) | |
296 TYPE is the type of data desired, typically `STRING'. | |
297 TIME_STAMP is the time to use in the XConvertSelection call for foreign | |
298 selections. If omitted, defaults to the time for the last event." | |
299 (x-get-selection-value)) | |
290 | 300 |
291 ;; From src/fontset.c: | 301 ;; From src/fontset.c: |
292 (fset 'query-fontset 'ignore) | 302 (fset 'query-fontset 'ignore) |
293 | 303 |
294 ;; From lisp/term/x-win.el: make iconify-or-deiconify-frame a no-op. | 304 ;; From lisp/term/x-win.el: make iconify-or-deiconify-frame a no-op. |