diff options
author | Richard M. Stallman <rms@gnu.org> | 2007-10-13 14:02:50 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2007-10-13 14:02:50 +0000 |
commit | 76fb5862cd8e4b629259544fa7a9a02476663a66 (patch) | |
tree | 2ff4fbeaf9bb03228b3cc6b89f3d4ca3a5895a35 /lisp/url/url-util.el | |
parent | 0506e866131f7e5a2cd601a62266a177427057ee (diff) | |
download | emacs-76fb5862cd8e4b629259544fa7a9a02476663a66.tar.gz |
(url-basepath): Function deleted.
(url-file-directory, url-file-nondirectory): New functions
replacing url-basepath. Callers changed.
Diffstat (limited to 'lisp/url/url-util.el')
-rw-r--r-- | lisp/url/url-util.el | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el index 082ceaea416..d7d8e2b4a4b 100644 --- a/lisp/url/url-util.el +++ b/lisp/url/url-util.el @@ -259,18 +259,24 @@ Will not do anything if `url-show-status' is nil." (/ (* x 100) y))) ;;;###autoload -(defun url-basepath (file &optional x) - "Return the base pathname of FILE, or the actual filename if X is true." +(defun url-file-directory (file) + "Return the directory part of FILE, for a URL." (cond ((null file) "") ((string-match (eval-when-compile (regexp-quote "?")) file) - (if x - (file-name-nondirectory (substring file 0 (match-beginning 0))) - (file-name-directory (substring file 0 (match-beginning 0))))) - (x (file-name-nondirectory file)) + (file-name-directory (substring file 0 (match-beginning 0)))) (t (file-name-directory file)))) ;;;###autoload +(defun url-file-nondirectory (file) + "Return the nondirectory part of FILE, for a URL." + (cond + ((null file) "") + ((string-match (eval-when-compile (regexp-quote "?")) file) + (file-name-nondirectory (substring file 0 (match-beginning 0)))) + (t (file-name-nondirectory file)))) + +;;;###autoload (defun url-parse-query-string (query &optional downcase allow-newlines) (let (retval pairs cur key val) (setq pairs (split-string query "&")) @@ -385,7 +391,7 @@ string: \"%\" followed by two lowercase hex digits." If optional variable X is t, then return the basename of the file with the extension stripped off." (if (and fname - (setq fname (url-basepath fname t)) + (setq fname (url-file-nondirectory fname)) (string-match "\\.[^./]+$" fname)) (if x (substring fname 0 (match-beginning 0)) (substring fname (match-beginning 0) nil)) |