Mercurial > emacs
comparison lisp/w32-fns.el @ 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 | b0d95c32f026 |
| children | 0ebdc7e05bfd |
comparison
equal
deleted
inserted
replaced
| 15349:fdc10603ac35 | 15350:a8bd6f986389 |
|---|---|
| 179 (aset name (match-beginning 0) ?$) | 179 (aset name (match-beginning 0) ?$) |
| 180 (setq start (1+ (match-end 0)))) | 180 (setq start (1+ (match-end 0)))) |
| 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]) |
| 189 (global-unset-key [C-down-mouse-3]) | 195 (global-unset-key [C-down-mouse-3]) |
| 190 | 196 |