Mercurial > emacs
comparison lisp/simple.el @ 85997:12109b56601f
(interprogram-cut-function, interprogram-paste-function):
Don't make them frame-local any more.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 09 Nov 2007 20:55:29 +0000 |
parents | 69cfa82e45bb |
children | 108c751714f7 880960b70474 |
comparison
equal
deleted
inserted
replaced
85996:79b1a2c5b3cb | 85997:12109b56601f |
---|---|
2559 The first argument, TEXT, is a string containing | 2559 The first argument, TEXT, is a string containing |
2560 the text which should be made available. | 2560 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 |
2569 Most window systems provide some sort of facility for cutting and | 2567 Most window systems provide some sort of facility for cutting and |
2570 pasting text between the windows of different programs. | 2568 pasting text between the windows of different programs. |
2586 than Emacs has provided a string for pasting; if Emacs provided the | 2584 than Emacs has provided a string for pasting; if Emacs provided the |
2587 most recent string, the function should return nil. If it is | 2585 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 |
2596 ;;;; The kill ring data structure. | 2592 ;;;; The kill ring data structure. |
2597 | 2593 |