martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy
1992-09-29 12:31:16 +00:00
parent bbe42033d2
commit 960fa1fa43
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/term/x-win.el
View File

@@ -473,7 +473,6 @@ turn off scroll bars; otherwise, turn on scroll bars."
;;; 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))
@@ -482,9 +481,9 @@ turn off scroll bars; otherwise, turn on scroll bars."
;;; 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)
(let ((text (or (x-selection-value))))
(if (or (string= text x-last-selected-text)
(string= ""))
nil
(setq x-last-selected-text nil)
text)))