>From 095f02a5581c2c5c157ec312a64288b0c675da74 Mon Sep 17 00:00:00 2001 From: Puneeth Chaganti Date: Mon, 18 Jul 2016 17:46:19 +0530 Subject: [PATCH 2/2] Allow specifying the callback if new session This change makes it easier to create xwidgets with their callbacks that are invoked by the event handler * lisp/xwidget.el (xwidget-webkit-new-session): Optional callback arg --- lisp/xwidget.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/xwidget.el b/lisp/xwidget.el index 3434e24..0f6751e 100644 --- a/lisp/xwidget.el +++ b/lisp/xwidget.el @@ -416,16 +416,17 @@ xwidget-webkit-fit-width (car (window-inside-pixel-edges))) 1000)) -(defun xwidget-webkit-new-session (url) +(defun xwidget-webkit-new-session (url &optional callback) "Create a new webkit session buffer with URL." (let* ((bufname (generate-new-buffer-name "*xwidget-webkit*")) + (callback (or callback #'xwidget-webkit-callback)) xw) (setq xwidget-webkit-last-session-buffer (switch-to-buffer (get-buffer-create bufname))) (insert " 'a' adjusts the xwidget size.") (setq xw (xwidget-insert 1 'webkit bufname 1000 1000)) - (xwidget-put xw 'callback 'xwidget-webkit-callback) + (xwidget-put xw 'callback callback) (xwidget-webkit-mode) (xwidget-webkit-goto-uri (xwidget-webkit-last-session) url))) -- 2.7.4