[Emacs-diffs] trunk r115559: * net/shr.el (shr-tag-a): Support zero-length <a name="foo"> elements.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 115559
revision-id: address@hidden
parent: address@hidden
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Tue 2013-12-17 00:40:17 +0100
message:
  * net/shr.el (shr-tag-a): Support zero-length <a name="foo"> elements.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1
  lisp/net/shr.el                shr.el-20101002102929-yfzewk55rsg0mn93-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-12-16 23:29:47 +0000
+++ b/lisp/ChangeLog    2013-12-16 23:40:17 +0000
@@ -1,5 +1,7 @@
 2013-12-16  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * net/shr.el (shr-tag-a): Support zero-length <a name="foo"> elements.
+
        * net/eww.el (eww-display-html): If we can't find the anchor we're
        looking for, then go to point-min.
 

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2013-12-16 23:29:47 +0000
+++ b/lisp/net/eww.el   2013-12-16 23:40:17 +0000
@@ -269,11 +269,11 @@
        (point
        (goto-char point))
        (shr-target-id
+       (goto-char (point-min))
        (let ((point (next-single-property-change
                      (point-min) 'shr-target-id)))
-         (goto-char (if point
-                        (1+ point)
-                      (point-min)))))
+         (when point
+           (goto-char point))))
        (t
        (goto-char (point-min)))))
     (setq eww-current-url url

=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el   2013-12-07 01:44:15 +0000
+++ b/lisp/net/shr.el   2013-12-16 23:40:17 +0000
@@ -1078,6 +1078,14 @@
        (start (point))
        shr-start)
     (shr-generic cont)
+    (when (and shr-target-id
+              (equal (cdr (assq :name (cdr dom))) shr-target-id))
+      ;; We have a zero-length <a name="foo"> element, so just
+      ;; insert...  something.
+      (when (= start (point))
+       (shr-ensure-newline)
+       (insert " "))
+      (put-text-property start (1+ start) 'shr-target-id shr-target-id))
     (when (and url
               (not shr-inhibit-decoration))
       (shr-urlify (or shr-start start) (shr-expand-url url) title))))