diff options
| author | Morten Welinder <terra@diku.dk> | 1994-10-17 08:42:36 +0000 |
|---|---|---|
| committer | Morten Welinder <terra@diku.dk> | 1994-10-17 08:42:36 +0000 |
| commit | 87485d6fc91710d31c0ed046744f5f7a95f11115 (patch) | |
| tree | 267385687729bec531f289670a15063c4d6bae52 /lisp/dos-fns.el | |
| parent | ef88bd2dc02b0b4e709a216a02760f43f18e00d6 (diff) | |
| download | emacs-87485d6fc91710d31c0ed046744f5f7a95f11115.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/dos-fns.el')
| -rw-r--r-- | lisp/dos-fns.el | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el index 213ce288fd9..39cbbf2f129 100644 --- a/lisp/dos-fns.el +++ b/lisp/dos-fns.el @@ -141,11 +141,14 @@ against the file name, and TYPE is nil for text, t for binary.") (defsubst intdos (regs) (int86 33 regs)) -;;; Fix interface to (X-specific) mouse.el -(defalias 'window-frame 'ignore) -(defalias 'x-set-selection 'ignore) -(fset 'x-get-selection '(lambda (&rest rest) "")) -(fmakunbound 'font-menu-add-default) -(global-unset-key [C-down-mouse-1]) -(global-unset-key [C-down-mouse-2]) -(global-unset-key [C-down-mouse-3]) +;; Extra stub to functions in src/frame.c +;; Emacs aborts during dump if the following don't have a doc string. +(defun window-frame (window) + "Return the frame that WINDOW resides on." + (selected-frame)) +(defun raise-frame (frame) + "Raise FRAME to the top of the desktop." + nil) +(defun select-frame (frame &optional no-enter) + "Select FRAME for input events." + (selected-frame)) |