relative urls actually work for emacswiki! only birefly tested

1 files changed, 13 insertions, 3 deletions

diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index c49b1c6738e..98db11bee8d 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -166,10 +166,10 @@ defaults to the string looking like a url around the cursor position."
              )
             
             ((eq xwidget-event-type 'navigation-policy-decision-requested)
-             (let ((elmname (progn                 (string-match ".*#\\(.*\\)" strarg)(match-string 1 strarg))))
-                   (message "navigation-policy-decision-requested: '%s' %s"  strarg  elmname       )
+             (let ((elmid (progn                   (string-match ".*#\\(.*\\)" strarg)(match-string 1 strarg))))
+                   (message "navigation-policy-decision-requested: '%s' %s"  strarg  elmid       )
 
-                   (xwidget-webkit-show-named-element xwidget elmname)
+                   (xwidget-webkit-show-id-element xwidget elmid)
                    )
 
              )
@@ -275,6 +275,16 @@ Argument STR string."
     (set-window-vscroll (selected-window) y t))
   )
 
+(defun xwidget-webkit-show-id-element (xw element-id)
+  "make id-element show. for instance an anchor."
+  (interactive (list (xwidget-webkit-current-session) (read-string "element id:")))
+  (let ((y 
+         (string-to-number (xwidget-webkit-execute-script-rv xw (format "document.getElementById('%s').getBoundingClientRect().top" element-id) 0))))
+    ;;now we need to tell emacs to scroll the element into view. 
+    (message "scroll: %d" y)
+    (set-window-vscroll (selected-window) y t))
+  )
+
 (defun xwidget-webkit-adjust-size-to-content ()
   "Adjust webkit to content size."
   (interactive)