[gnus git] branch master updated: m0-7-93-g3569c92 =1= (shr-expand-url): Respect #anchor links.

       via  3569c92640d7c40d571d48b6127909554c79cee2 (commit)
      from  fb2fa37efd64ec909c284b4e4383c6dfc94c26d7 (commit)


- Log -----------------------------------------------------------------
commit 3569c92640d7c40d571d48b6127909554c79cee2
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sun Jun 16 19:33:47 2013 +0200

    (shr-expand-url): Respect #anchor links.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2fab836..23f4aad 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
 	* shr.el (shr-tag-li): Don't require a new paragraph, since other
 	browsers don't.
+	(shr-expand-url): Respect #anchor links.
 
 	* eww.el (eww-tag-textarea): Use `text' instead of `editable-field'.
 
diff --git a/lisp/shr.el b/lisp/shr.el
index 4b884c3..7c6c6a3 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -505,7 +505,8 @@ size, and full-buffer size."
       (setq local (concat local "/")))
     (list (url-recreate-url parsed)
 	  local
-	  (url-type parsed))))
+	  (url-type parsed)
+	  url)))
 
 (defun shr-expand-url (url &optional base)
   (setq base
@@ -527,6 +528,9 @@ size, and full-buffer size."
 	     (concat (nth 2 base) ":" url)
 	   ;; Just use the host name part.
 	   (concat (car base) url)))
+	((eq (aref url 0) ?#)
+	 ;; A link to an anchor.
+	 (concat (nth 3 base) url))
 	(t
 	 ;; Totally relative.
 	 (concat (car base) (cadr base) url))))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    1 +
 lisp/shr.el    |    6 +++++-
 2 files changed, 6 insertions(+), 1 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project