From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 4 Nov 2008 17:11:58 +0000 (+0000)
Subject: (url-basepath): Add url-basepath as an alias for url-file-directory.
X-Git-Tag: emacs-pretest-23.0.90~1967
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08299ea7e391e0a77e4167e1a7b2d97917cf348b;p=emacs.git

(url-basepath): Add url-basepath as an alias for url-file-directory.
---

diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index ffa19be50b2..b68e044604c 100644
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -236,6 +236,9 @@ Will not do anything if `url-show-status' is nil."
       (round (* 100 (/ x (float y))))
     (/ (* x 100) y)))
 
+;;;###autoload
+(defalias 'url-basepath 'url-file-directory)
+
 ;;;###autoload
 (defun url-file-directory (file)
   "Return the directory part of FILE, for a URL."