From 4968291f3f4a32a3333095123a6d3793ee5a3d71 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 25 Sep 2008 07:41:32 +0000 Subject: [PATCH] Comment. --- lisp/url/url-util.el | 2 ++ 1 file changed, 2 insertions(+) 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)) -- 2.39.5