comparison lisp/term/x-win.el @ 1266:bf6b4bc3ccc0

*** empty log message ***

1265:cfda1fa93624

;;; 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.
(setq interprogram-cut-function 'x-select-text)
(setq interprogram-paste-function 'x-cut-buffer-or-selection-value)

1266:bf6b4bc3ccc0

;;; 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)

    ;; Consult the cut buffer, then the selection.  Treat empty strings
    ;; as if they were unset.
    (setq text (x-get-cut-buffer 0))
    (if (string= text "") (setq text nil))
    (or text (setq text (x-get-cut-buffer 0)))
    (if (string= text "") (setq text nil))

    (cond
     ((not text) nil)
     ((eq text x-last-selected-text) nil)
     ((string= text x-last-selected-text)
      ;; Record the newer string, so subsequent calls can use the `eq' test.
      (setq x-last-selected-text text)
      nil)
     (t
      (setq x-last-selected-text text)))))

;;; Arrange for the kill and yank functions to set and check the clipboard.
(setq interprogram-cut-function 'x-select-text)
(setq interprogram-paste-function 'x-cut-buffer-or-selection-value)