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 | bffcf8740278b5dc68ff6f755aab08295e45f22c (patch) | |
| tree | 643f02820d5cbc69b09b95749c70b8f81578e6fe /lisp/w32-fns.el | |
| parent | 8e8abef096a7817aeedfb96c843c65bf11315a2e (diff) | |
| download | emacs-bffcf8740278b5dc68ff6f755aab08295e45f22c.tar.gz | |
(x-set-selection, x-get-selection): Define them to really use TYPE.
Diffstat (limited to 'lisp/w32-fns.el')
| -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]) |