# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1222328492 0
# Node ID b41e5dc225356eef8626c49e87a0129c400e0761
# Parent  34fed53002748b8a24a7d3e04cc6618544246719
Comment.

diff -r 34fed5300274 -r b41e5dc22535 lisp/url/url-util.el
--- a/lisp/url/url-util.el	Thu Sep 25 01:46:06 2008 +0000
+++ b/lisp/url/url-util.el	Thu Sep 25 07:41:32 2008 +0000
@@ -167,6 +167,8 @@
 	  type (url-type data))
     (if (member type '("www" "about" "mailto" "info"))
 	(setq retval url)
+      ;; FIXME all this does, and all this function seems to do in
+      ;; most cases, is remove any trailing "#anchor" part of a url.
       (setf (url-target data) nil)
       (setq retval (url-recreate-url data)))
     retval))