Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/lisp/dos-fns.el Mon Oct 17 08:04:13 1994 +0000 +++ b/lisp/dos-fns.el Mon Oct 17 08:42:36 1994 +0000 @@ -141,11 +141,14 @@ (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))