Mercurial > emacs
comparison lisp/dos-fns.el @ 9572:b36d5e88cccc
*** empty log message ***
| author | Morten Welinder <terra@diku.dk> |
|---|---|
| date | Mon, 17 Oct 1994 08:42:36 +0000 |
| parents | 06c366308319 |
| children | 5ff133dbb12f |
comparison
equal
deleted
inserted
replaced
| 9571:b37425ecb3f0 | 9572:b36d5e88cccc |
|---|---|
| 139 regs) | 139 regs) |
| 140 | 140 |
| 141 (defsubst intdos (regs) | 141 (defsubst intdos (regs) |
| 142 (int86 33 regs)) | 142 (int86 33 regs)) |
| 143 | 143 |
| 144 ;;; Fix interface to (X-specific) mouse.el | 144 ;; Extra stub to functions in src/frame.c |
| 145 (defalias 'window-frame 'ignore) | 145 ;; Emacs aborts during dump if the following don't have a doc string. |
| 146 (defalias 'x-set-selection 'ignore) | 146 (defun window-frame (window) |
| 147 (fset 'x-get-selection '(lambda (&rest rest) "")) | 147 "Return the frame that WINDOW resides on." |
| 148 (fmakunbound 'font-menu-add-default) | 148 (selected-frame)) |
| 149 (global-unset-key [C-down-mouse-1]) | 149 (defun raise-frame (frame) |
| 150 (global-unset-key [C-down-mouse-2]) | 150 "Raise FRAME to the top of the desktop." |
| 151 (global-unset-key [C-down-mouse-3]) | 151 nil) |
| 152 (defun select-frame (frame &optional no-enter) | |
| 153 "Select FRAME for input events." | |
| 154 (selected-frame)) |