diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-09-25 07:41:32 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-09-25 07:41:32 +0000 |
| commit | 4968291f3f4a32a3333095123a6d3793ee5a3d71 (patch) | |
| tree | f73f5278df5ff56fb07e3d5c85c3caefdc20d2ea /lisp/url/url-util.el | |
| parent | 6002d9b956710e58b1decdc098ea7ef8e9042d07 (diff) | |
| download | emacs-4968291f3f4a32a3333095123a6d3793ee5a3d71.tar.gz emacs-4968291f3f4a32a3333095123a6d3793ee5a3d71.tar.bz2 emacs-4968291f3f4a32a3333095123a6d3793ee5a3d71.zip | |
Comment.
Diffstat (limited to 'lisp/url/url-util.el')
| -rw-r--r-- | lisp/url/url-util.el | 2 |
1 files changed, 2 insertions, 0 deletions
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)) |