From: Joakim Verona <joakim@verona.se>
Date: Thu, 12 Feb 2015 21:50:25 +0000 (+0100)
Subject: removed unused function
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=87bfffd7cbebab17ea99f215e745498ab1023ebd;p=emacs.git

removed unused function
---

diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index 286b96a0bde..6405286fb17 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -46,36 +46,6 @@ Optional argument ARGS usage depends on the xwidget."
     (if (equal 'xwidget (car disp)) xw)))
 
 
-;; (defun xwidget-socket-handler ()
-;;   "Create plug for socket.  TODO."
-;;   (interactive)
-;;   (message "socket handler xwidget %S" last-input-event)
-;;   (let*
-;;       ((xwidget-event-type (nth 2 last-input-event))
-;;        (xwidget-id (nth 1 last-input-event)))
-;;     (cond ( (eq xwidget-event-type 'xembed-ready)
-;;             (let*
-;;                 ((xembed-id (nth 3 last-input-event)))
-;;               (message "xembed ready  event: %S xw-id:%s" xembed-id xwidget-id)
-;;               ;;TODO fetch process data from the xwidget. create it, store process info
-;;               ;;will start emacs/uzbl in a xembed socket when its ready
-;;               ;; (cond
-;;               ;;  ((eq 3 xwidget-id)
-;;               ;;   (start-process "xembed" "*xembed*" (format "%ssrc/emacs" default-directory) "-q" "--parent-id" (number-to-string xembed-id) ) )
-;;               ;;  ((eq 5 xwidget-id)
-;;               ;;   (start-process "xembed2" "*xembed2*" "uzbl-core"  "-s" (number-to-string xembed-id)  "http://www.fsf.org" )  )
-;;               )))))
-
-(defun xwidget-display (xwidget)
-  "Force XWIDGET to be displayed to create a xwidget_view.
-Return the window displaying XWIDGET."
-  (let* ((buffer (xwidget-buffer xwidget))
-         (window (display-buffer buffer))
-         (frame (window-frame window)))
-    (set-frame-visible frame t)
-    (redisplay t)
-    window))
-
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; webkit support
diff --git a/src/xwidget.c b/src/xwidget.c
index bde7a955577..fb1a98786a7 100644
--- a/src/xwidget.c
+++ b/src/xwidget.c
@@ -1025,18 +1025,6 @@ DEFUN ("xwidget-view-lookup",
   return Qnil;
 }
 
-DEFUN ("set-frame-visible",
-       Fset_frame_visible, Sset_frame_visible,
-       2, 2, 0, doc:	/* HACKY */
-       )
-  (Lisp_Object frame, Lisp_Object flag)
-{
-  CHECK_FRAME (frame);
-  struct frame *f = XFRAME (frame);
-  SET_FRAME_VISIBLE (f, !NILP (flag));
-  return flag;
-}
-
 DEFUN ("xwidget-plist",
        Fxwidget_plist, Sxwidget_plist,
        1, 1, 0, doc:	/* Return the plist of XWIDGET.  */
@@ -1114,7 +1102,6 @@ syms_of_xwidget (void)
   defsubr (&Sxwidget_view_lookup);
   defsubr (&Sxwidget_query_on_exit_flag);
   defsubr (&Sset_xwidget_query_on_exit_flag);
-  defsubr (&Sset_frame_visible);
 
 #ifdef HAVE_WEBKIT_OSR
   defsubr (&Sxwidget_webkit_goto_uri);