From: Glenn Morris Date: Thu, 25 Sep 2008 07:45:35 +0000 (+0000) Subject: (ffap-fixup-url): Don't call url-normalize-url. (Bug#898) X-Git-Tag: emacs-pretest-23.0.90~2770 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4dd7f3750f4f82be7e4f42bbe1e1ebe193da9d2c;p=emacs.git (ffap-fixup-url): Don't call url-normalize-url. (Bug#898) --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a9159efe5e1..fae9ac0b5c9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-09-25 Glenn Morris + + * ffap.el (ffap-fixup-url): Don't call url-normalize-url. (Bug#898) + 2008-09-25 Chong Yidong * vc.el (vc-mark-resolved): Move message here from diff --git a/lisp/ffap.el b/lisp/ffap.el index 5d9b628a2c2..72efcb33542 100644 --- 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)))