From: Glenn Morris <rgm@gnu.org>
Date: Thu, 25 Sep 2008 07:41:32 +0000 (+0000)
Subject: Comment.
X-Git-Tag: emacs-pretest-23.0.90~2771
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4968291f3f4a32a3333095123a6d3793ee5a3d71;p=emacs.git

Comment.
---

diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index 7c532de0330..ffa19be50b2 100644
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -167,6 +167,8 @@ Strips out default port numbers, etc."
 	  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))