diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-07 15:06:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-07 15:06:04 +0000 |
| commit | 106605f27b5532ac82e1b014b89c4a198c8b8469 (patch) | |
| tree | 18b3cf57d3b0e55cfa61e8f2d8543c214cbd4c02 | |
| parent | 4b2ff93441638c0a9aa113a5ba9f2f7908673a1a (diff) | |
| download | emacs-106605f27b5532ac82e1b014b89c4a198c8b8469.tar.gz | |
(x-set-selection, x-get-selection): Define them to really use TYPE.
| -rw-r--r-- | lisp/w32-fns.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index e649101c5a9..28b75194d5f 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -181,8 +181,14 @@ See also `auto-save-file-name-p'." name)) ;;; Fix interface to (X-specific) mouse.el -(defalias 'x-set-selection 'ignore) -(fset 'x-get-selection '(lambda (&rest rest) "")) +(defun x-set-selection (type data) + (or type (setq type 'PRIMARY)) + (put 'x-selections type data)) + +(defun x-get-selection (&optional type data-type) + (or type (setq type 'PRIMARY)) + (get 'x-selections type)) + (fmakunbound 'font-menu-add-default) (global-unset-key [C-down-mouse-1]) (global-unset-key [C-down-mouse-2]) |