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 | 4103a5ce4ee207d9e8b4bf44887ce9afcca5a604 (patch) | |
tree | a05182afeb77460c04635bb1eb65a345bbaffdfa /lisp/dos-fns.el | |
parent | e15e6710b29fe48afba580041c98708c3168a1f8 (diff) | |
download | emacs-4103a5ce4ee207d9e8b4bf44887ce9afcca5a604.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)) |