Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 11:57:36 +00:00
Code Issues Projects Releases Packages 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
Show stats 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)))