Mercurial > emacs
changeset 15350:a8bd6f986389
(x-set-selection, x-get-selection): Define them to really use TYPE.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Jun 1996 15:06:04 +0000 |
| parents | fdc10603ac35 |
| children | 6deee3a18ba8 |
| files | lisp/w32-fns.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/w32-fns.el Fri Jun 07 14:57:45 1996 +0000 +++ b/lisp/w32-fns.el Fri Jun 07 15:06:04 1996 +0000 @@ -181,8 +181,14 @@ 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])