Mercurial > emacs

changeset 98338:b41e5dc22535

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Comment.
author Glenn Morris <rgm@gnu.org>
date Thu, 25 Sep 2008 07:41:32 +0000
parents 34fed5300274
children c646ac5cd7c0
files lisp/url/url-util.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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))