From 08299ea7e391e0a77e4167e1a7b2d97917cf348b Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 4 Nov 2008 17:11:58 +0000 Subject: [PATCH] (url-basepath): Add url-basepath as an alias for url-file-directory. --- lisp/url/url-util.el | 3 +++ 1 file changed, 3 insertions(+) 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." -- 2.39.2