[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] xwidget_mvp 87bfffd 2/2: removed unused function
From: |
Joakim Verona |
Subject: |
[Emacs-diffs] xwidget_mvp 87bfffd 2/2: removed unused function |
Date: |
Thu, 12 Feb 2015 21:50:54 +0000 |
branch: xwidget_mvp
commit 87bfffd7cbebab17ea99f215e745498ab1023ebd
Author: Joakim Verona <address@hidden>
Commit: Joakim Verona <address@hidden>
removed unused function
---
lisp/xwidget.el | 30 ------------------------------
src/xwidget.c | 13 -------------
2 files changed, 0 insertions(+), 43 deletions(-)
diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index 286b96a..6405286 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 bde7a95..fb1a987 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);