diff options
| author | Stefan Monnier | 2007-11-09 20:55:29 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2007-11-09 20:55:29 +0000 |
| commit | 5015055ea560a3dabb2d4bdb200d749fad374949 (patch) | |
| tree | ac6e8058e8565908228564ddeaa62452463776e9 | |
| parent | a3ee6f08ac597e9bcd12c3759c8419a51bf603a3 (diff) | |
| download | emacs-5015055ea560a3dabb2d4bdb200d749fad374949.tar.gz emacs-5015055ea560a3dabb2d4bdb200d749fad374949.zip | |
(interprogram-cut-function, interprogram-paste-function):
Don't make them frame-local any more.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/simple.el | 4 |
2 files changed, 3 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5876fda424f..91f99cf8545 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2007-11-09 Stefan Monnier <monnier@iro.umontreal.ca> | 1 | 2007-11-09 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 2 | ||
| 3 | * simple.el (interprogram-cut-function, interprogram-paste-function): | ||
| 4 | Don't make them frame-local any more. | ||
| 5 | |||
| 3 | * faces.el (x-create-frame-with-faces, tty-create-frame-with-faces): | 6 | * faces.el (x-create-frame-with-faces, tty-create-frame-with-faces): |
| 4 | Don't set interprogram-(cut|paste)-function on each frame. | 7 | Don't set interprogram-(cut|paste)-function on each frame. |
| 5 | 8 | ||
diff --git a/lisp/simple.el b/lisp/simple.el index f43635807d0..572d7d689a7 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -2561,8 +2561,6 @@ the text which should be made available. | |||
| 2561 | The second, optional, argument PUSH, has the same meaning as the | 2561 | The second, optional, argument PUSH, has the same meaning as the |
| 2562 | similar argument to `x-set-cut-buffer', which see.") | 2562 | similar argument to `x-set-cut-buffer', which see.") |
| 2563 | 2563 | ||
| 2564 | (make-variable-frame-local 'interprogram-cut-function) | ||
| 2565 | |||
| 2566 | (defvar interprogram-paste-function nil | 2564 | (defvar interprogram-paste-function nil |
| 2567 | "Function to call to get text cut from other programs. | 2565 | "Function to call to get text cut from other programs. |
| 2568 | 2566 | ||
| @@ -2588,8 +2586,6 @@ most recent string, the function should return nil. If it is | |||
| 2588 | difficult to tell whether Emacs or some other program provided the | 2586 | difficult to tell whether Emacs or some other program provided the |
| 2589 | current string, it is probably good enough to return nil if the string | 2587 | current string, it is probably good enough to return nil if the string |
| 2590 | is equal (according to `string=') to the last text Emacs provided.") | 2588 | is equal (according to `string=') to the last text Emacs provided.") |
| 2591 | |||
| 2592 | (make-variable-frame-local 'interprogram-paste-function) | ||
| 2593 | 2589 | ||
| 2594 | 2590 | ||
| 2595 | 2591 | ||