[Emacs-diffs] /srv/bzr/emacs/trunk r102534: term/pc-win.el (x-get-selection-internal): Emulation for MS-DOS.

[Eli Zaretskii]

------------------------------------------------------------
revno: 102534 [merge]
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Fri 2010-11-26 20:40:37 +0200
message:
   term/pc-win.el (x-get-selection-internal): Emulation for MS-DOS.
modified:
  lisp/ChangeLog
  lisp/term/pc-win.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-26 03:10:16 +0000
+++ b/lisp/ChangeLog    2010-11-26 18:38:40 +0000
@@ -1,3 +1,7 @@
+2010-11-26  Eli Zaretskii  <address@hidden>
+
+       * term/pc-win.el (x-get-selection-internal): Emulation for MS-DOS.
+
 2010-11-26  Glenn Morris  <address@hidden>
 
        * calendar/diary-lib.el (diary-outlook-format-1): New function, so that

=== modified file 'lisp/term/pc-win.el'
--- a/lisp/term/pc-win.el       2010-10-26 02:59:05 +0000
+++ b/lisp/term/pc-win.el       2010-11-26 18:38:40 +0000
@@ -288,6 +288,16 @@
   (if (x-selection-owner-p selection)
       t))
 
+;; x-get-selection-internal is used in select.el
+(defun x-get-selection-internal (selection type &optional time_stamp)
+  "Return text selected from some X window.
+SELECTION is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'.
+\(Those are literal upper-case symbol names, since that's what X expects.)
+TYPE is the type of data desired, typically `STRING'.
+TIME_STAMP is the time to use in the XConvertSelection call for foreign
+selections.  If omitted, defaults to the time for the last event."
+  (x-get-selection-value))
+
 ;; From src/fontset.c:
 (fset 'query-fontset 'ignore)