diff lisp/dos-fns.el @ 9572:b36d5e88cccc

*** empty log message ***

--- 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))