Commit a3ee6f08 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(x-create-frame-with-faces, tty-create-frame-with-faces):

Don't set interprogram-(cut|paste)-function on each frame.
parent c7e36bd9
2007-11-09 Stefan Monnier <monnier@iro.umontreal.ca>
* faces.el (x-create-frame-with-faces, tty-create-frame-with-faces):
Don't set interprogram-(cut|paste)-function on each frame.
* term/x-win.el (x-select-text, x-cut-buffer-or-selection-value):
Make them work in tty frames.
(interprogram-cut-function, interprogram-paste-function):
......
......@@ -1905,11 +1905,6 @@ Value is the new frame created."
(x-handle-reverse-video frame parameters)
(frame-set-background-mode frame)
(face-set-after-frame-default frame)
;; Arrange for the kill and yank functions to set and check the clipboard.
(modify-frame-parameters
frame '((interprogram-cut-function . x-select-text)))
(modify-frame-parameters
frame '((interprogram-paste-function . x-cut-buffer-or-selection-value)))
;; Make sure the tool-bar is ready to be enabled. The
;; `tool-bar-lines' frame parameter will not take effect
;; without this call.
......@@ -2012,10 +2007,6 @@ created."
(with-selected-frame frame
(tty-handle-reverse-video frame (frame-parameters frame))
;; Make sure the kill and yank functions do not touch the X clipboard.
(modify-frame-parameters frame '((interprogram-cut-function . nil)))
(modify-frame-parameters frame '((interprogram-paste-function . nil)))
(unless (terminal-parameter frame 'terminal-initted)
(set-terminal-parameter frame 'terminal-initted t)
(set-locale-environment nil frame)
......
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