Commit f6c7b4e7 authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent 60eb4bbf
......@@ -482,12 +482,24 @@ 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))))
(if (or (string= text x-last-selected-text)
(string= ""))
nil
(setq x-last-selected-text nil)
text)))
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment