[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/term/x-win.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/term/x-win.el |
Date: |
Wed, 02 Nov 2005 16:43:22 -0500 |
Index: emacs/lisp/term/x-win.el
diff -c emacs/lisp/term/x-win.el:1.183 emacs/lisp/term/x-win.el:1.184
*** emacs/lisp/term/x-win.el:1.183 Mon Oct 24 11:07:53 2005
--- emacs/lisp/term/x-win.el Wed Nov 2 21:43:21 2005
***************
*** 2116,2127 ****
;;;; Selections and cut buffers
! ;;; We keep track of the last text selected here, so we can check the
! ;;; current selection against it, and avoid passing back our own text
! ;;; from x-cut-buffer-or-selection-value. We track all three
! ;;; seperately in case another X application only sets one of them
! ;;; (say the cut buffer) we aren't fooled by the PRIMARY or
! ;;; CLIPBOARD selection staying the same.
(defvar x-last-selected-text-clipboard nil
"The value of the CLIPBOARD X selection last time we selected or
pasted text.")
--- 2116,2127 ----
;;;; Selections and cut buffers
! ;; We keep track of the last text selected here, so we can check the
! ;; current selection against it, and avoid passing back our own text
! ;; from x-cut-buffer-or-selection-value. We track all three
! ;; seperately in case another X application only sets one of them
! ;; (say the cut buffer) we aren't fooled by the PRIMARY or
! ;; CLIPBOARD selection staying the same.
(defvar x-last-selected-text-clipboard nil
"The value of the CLIPBOARD X selection last time we selected or
pasted text.")
***************
*** 2135,2144 ****
"The value of the X cut buffer last time we selected or pasted text.
This is the actual text stored in the X cut buffer.")
! ;;; It is said that overlarge strings are slow to put into the cut buffer.
! ;;; Note this value is overridden below.
! (defvar x-cut-buffer-max 20000
! "Max number of characters to put in the cut buffer.")
(defcustom x-select-enable-clipboard nil
"Non-nil means cutting and pasting uses the clipboard.
--- 2135,2143 ----
"The value of the X cut buffer last time we selected or pasted text.
This is the actual text stored in the X cut buffer.")
! (defvar x-cut-buffer-max 20000 ; Note this value is overridden below.
! "Max number of characters to put in the cut buffer.
! It is said that overlarge strings are slow to put into the cut buffer.")
(defcustom x-select-enable-clipboard nil
"Non-nil means cutting and pasting uses the clipboard.
***************
*** 2146,2157 ****
:type 'boolean
:group 'killing)
- ;;; Make TEXT, a string, the primary X selection.
- ;;; Also, set the value of X cut buffer 0, for backward compatibility
- ;;; with older X applications.
- ;;; address@hidden says it's not desirable to put kills
- ;;; in the clipboard.
(defun x-select-text (text &optional push)
;; Don't send the cut buffer too much text.
;; It becomes slow, and if really big it causes errors.
(cond ((>= (length text) x-cut-buffer-max)
--- 2145,2156 ----
:type 'boolean
:group 'killing)
(defun x-select-text (text &optional push)
+ "Make TEXT, a string, the primary X selection.
+ Also, set the value of X cut buffer 0, for backward compatibility
+ with older X applications.
+ address@hidden says it's not desirable to put kills
+ in the clipboard."
;; Don't send the cut buffer too much text.
;; It becomes slow, and if really big it causes errors.
(cond ((>= (length text) x-cut-buffer-max)
***************
*** 2276,2287 ****
(remove-text-properties 0 (length text) '(foreign-selection nil) text))
text))
! ;;; Return the value of the current X selection.
! ;;; Consult the selection, and the cut buffer. Treat empty strings
! ;;; as if they were unset.
! ;;; If this function is called twice and finds the same text,
! ;;; it returns nil the second time. This is so that a single
! ;;; selection won't be added to the kill ring over and over.
(defun x-cut-buffer-or-selection-value ()
(let (clip-text primary-text cut-text)
(when x-select-enable-clipboard
--- 2275,2286 ----
(remove-text-properties 0 (length text) '(foreign-selection nil) text))
text))
! ;; Return the value of the current X selection.
! ;; Consult the selection, and the cut buffer. Treat empty strings
! ;; as if they were unset.
! ;; If this function is called twice and finds the same text,
! ;; it returns nil the second time. This is so that a single
! ;; selection won't be added to the kill ring over and over.
(defun x-cut-buffer-or-selection-value ()
(let (clip-text primary-text cut-text)
(when x-select-enable-clipboard
***************
*** 2373,2384 ****
))
! ;;; Do the actual X Windows setup here; the above code just defines
! ;;; functions and variables that we use now.
(setq command-line-args (x-handle-args command-line-args))
! ;;; Make sure we have a valid resource name.
(or (stringp x-resource-name)
(let (i)
(setq x-resource-name (invocation-name))
--- 2372,2383 ----
))
! ;; Do the actual X Windows setup here; the above code just defines
! ;; functions and variables that we use now.
(setq command-line-args (x-handle-args command-line-args))
! ;; Make sure we have a valid resource name.
(or (stringp x-resource-name)
(let (i)
(setq x-resource-name (invocation-name))
***************
*** 2474,2485 ****
(error "Suspending an Emacs running under X makes no sense"))
(add-hook 'suspend-hook 'x-win-suspend-error)
! ;;; 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)
! ;;; Turn off window-splitting optimization; X is usually fast enough
! ;;; that this is only annoying.
(setq split-window-keep-point t)
;; Don't show the frame name; that's redundant with X.
--- 2473,2484 ----
(error "Suspending an Emacs running under X makes no sense"))
(add-hook 'suspend-hook 'x-win-suspend-error)
! ;; 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)
! ;; Turn off window-splitting optimization; X is usually fast enough
! ;; that this is only annoying.
(setq split-window-keep-point t)
;; Don't show the frame name; that's redundant with X.
***************
*** 2517,2521 ****
(add-hook 'after-make-frame-functions 'x-dnd-init-frame)
(global-set-key [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
! ;;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78
;;; x-win.el ends here
--- 2516,2520 ----
(add-hook 'after-make-frame-functions 'x-dnd-init-frame)
(global-set-key [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
! ;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78
;;; x-win.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/term/x-win.el,
Stefan Monnier <=