comparison lisp/term/x-win.el @ 1259:be61776a20c4

*** empty log message ***

1258:353663d81b11

;;; If you are running xclipboard, this means you can effectively
;;; have a window on a copy of the kill-ring.
;;; Also, set the value of X cut buffer 0, for backward compatibility
;;; with older X application.
(defun x-select-text (text)
  (x-own-selection text 'cut-buffer0)
  (x-own-selection text 'clipboard)
  (x-own-selection text)
  (setq x-last-selected-text text))

;;; Return the value of the current X selection.  For compatibility
;;; with older X applications, this checks cut buffer 0 before
;;; retrieving the value of the primary selection.
(defun x-cut-buffer-or-selection-value ()
  (let ((text (or (x-selection-value 'cut-buffer0)
		  (x-selection-value))))
    (if (string= text x-last-selected-text)
	nil
      (setq x-last-selected-text nil)
      text)))

;;; Arrange for the kill and yank functions to set and check the clipboard.

1259:be61776a20c4

;;; If you are running xclipboard, this means you can effectively
;;; have a window on a copy of the kill-ring.
;;; Also, set the value of X cut buffer 0, for backward compatibility
;;; with older X application.
(defun x-select-text (text)
  (x-own-selection text 'clipboard)
  (x-own-selection text)
  (setq x-last-selected-text text))

;;; Return the value of the current X selection.  For compatibility
;;; with older X applications, this checks cut buffer 0 before
;;; retrieving the value of the primary selection.
(defun x-cut-buffer-or-selection-value ()
  (let ((text (or (x-selection-value))))
    (if (or (string= text x-last-selected-text)
	    (string= ""))
	nil
      (setq x-last-selected-text nil)
      text)))

;;; Arrange for the kill and yank functions to set and check the clipboard.