(ffap-fixup-url): Don't call url-normalize-url. (Bug#898)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a9159efe5e15ede8f0536559bb3dcc8fb4879956..fae9ac0b5c958227a34dcc21132960ed6b4e8538 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-09-25  Glenn Morris  <rgm@gnu.org>
+
+       * ffap.el (ffap-fixup-url): Don't call url-normalize-url.  (Bug#898)
+
 2008-09-25  Chong Yidong  <cyd@stupidchicken.com>
 
        * vc.el (vc-mark-resolved): Move message here from

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 5d9b628a2c252499e767fc1e29b239aa8f776c21..72efcb335428735fde2c937220f346705dc37030 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -633,8 +633,9 @@ Looks at `ffap-ftp-default-user', returns \"\" for \"localhost\"."
    ((and ffap-url-unwrap-local (ffap-url-unwrap-local url)))
    ((and ffap-url-unwrap-remote ffap-ftp-regexp
         (ffap-url-unwrap-remote url)))
-   ((fboundp 'url-normalize-url)       ; may autoload url (part of w3)
-    (url-normalize-url url))
+   ;; All this seems to do is remove any trailing "#anchor" part (Bug#898).
+;;;   ((fboundp 'url-normalize-url)    ; may autoload url (part of w3)
+;;;    (url-normalize-url url))
    (url)))
 
 \f