diff options
| author | Richard M. Stallman | 1996-06-07 15:06:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-07 15:06:04 +0000 |
| commit | bffcf8740278b5dc68ff6f755aab08295e45f22c (patch) | |
| tree | 643f02820d5cbc69b09b95749c70b8f81578e6fe | |
| parent | 8e8abef096a7817aeedfb96c843c65bf11315a2e (diff) | |
| download | emacs-bffcf8740278b5dc68ff6f755aab08295e45f22c.tar.gz emacs-bffcf8740278b5dc68ff6f755aab08295e45f22c.zip | |
(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'." | |||
| 181 | name)) | 181 | name)) |
| 182 | 182 | ||
| 183 | ;;; Fix interface to (X-specific) mouse.el | 183 | ;;; Fix interface to (X-specific) mouse.el |
| 184 | (defalias 'x-set-selection 'ignore) | 184 | (defun x-set-selection (type data) |
| 185 | (fset 'x-get-selection '(lambda (&rest rest) "")) | 185 | (or type (setq type 'PRIMARY)) |
| 186 | (put 'x-selections type data)) | ||
| 187 | |||
| 188 | (defun x-get-selection (&optional type data-type) | ||
| 189 | (or type (setq type 'PRIMARY)) | ||
| 190 | (get 'x-selections type)) | ||
| 191 | |||
| 186 | (fmakunbound 'font-menu-add-default) | 192 | (fmakunbound 'font-menu-add-default) |
| 187 | (global-unset-key [C-down-mouse-1]) | 193 | (global-unset-key [C-down-mouse-1]) |
| 188 | (global-unset-key [C-down-mouse-2]) | 194 | (global-unset-key [C-down-mouse-2]) |