summaryrefslogtreecommitdiff
path: root/lisp/url
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2008-11-04 17:11:58 +0000
committerChong Yidong <cyd@stupidchicken.com>2008-11-04 17:11:58 +0000
commit08299ea7e391e0a77e4167e1a7b2d97917cf348b (patch)
treeb24f7c9079de0953f6bf1586d639274f440411b2 /lisp/url
parent92066e8365f04f2d76232e7d69db319a70dfeda1 (diff)
downloademacs-08299ea7e391e0a77e4167e1a7b2d97917cf348b.tar.gz
(url-basepath): Add url-basepath as an alias for url-file-directory.
Diffstat (limited to 'lisp/url')
-rw-r--r--lisp/url/url-util.el3
1 files changed, 3 insertions, 0 deletions
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
@@ -237,6 +237,9 @@ Will not do anything if `url-show-status' is nil."
(/ (* 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."
(cond