diff options
| author | Chong Yidong | 2008-11-04 17:11:58 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-11-04 17:11:58 +0000 |
| commit | 08299ea7e391e0a77e4167e1a7b2d97917cf348b (patch) | |
| tree | b24f7c9079de0953f6bf1586d639274f440411b2 | |
| parent | 92066e8365f04f2d76232e7d69db319a70dfeda1 (diff) | |
| download | emacs-08299ea7e391e0a77e4167e1a7b2d97917cf348b.tar.gz emacs-08299ea7e391e0a77e4167e1a7b2d97917cf348b.zip | |
(url-basepath): Add url-basepath as an alias for url-file-directory.
| -rw-r--r-- | lisp/url/url-util.el | 3 |
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." | |||
| 237 | (/ (* x 100) y))) | 237 | (/ (* x 100) y))) |
| 238 | 238 | ||
| 239 | ;;;###autoload | 239 | ;;;###autoload |
| 240 | (defalias 'url-basepath 'url-file-directory) | ||
| 241 | |||
| 242 | ;;;###autoload | ||
| 240 | (defun url-file-directory (file) | 243 | (defun url-file-directory (file) |
| 241 | "Return the directory part of FILE, for a URL." | 244 | "Return the directory part of FILE, for a URL." |
| 242 | (cond | 245 | (cond |