[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/record 917ce99: Use urp-p instead of recordp.
From: |
Lars Brinkhoff |
Subject: |
[Emacs-diffs] scratch/record 917ce99: Use urp-p instead of recordp. |
Date: |
Wed, 22 Mar 2017 02:27:07 -0400 (EDT) |
branch: scratch/record
commit 917ce997b01d8d32237ad809814442570ae4f879
Author: Lars Brinkhoff <address@hidden>
Commit: Lars Brinkhoff <address@hidden>
Use urp-p instead of recordp.
---
lisp/url/url-cache.el | 2 +-
lisp/url/url-dav.el | 4 ++--
lisp/url/url-file.el | 2 +-
lisp/url/url-http.el | 2 +-
lisp/url/url-imap.el | 2 +-
lisp/url/url-ldap.el | 2 +-
lisp/url/url.el | 2 +-
7 files changed, 8 insertions(+), 8 deletions(-)
diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el
index 70ba1a8..a7247df 100644
--- a/lisp/url/url-cache.el
+++ b/lisp/url/url-cache.el
@@ -184,7 +184,7 @@ Very fast if you have an `md5' primitive function, suitably
fast otherwise."
;; if it has been specified: e.g. http://www.example.com:80 will
;; be transcoded as http://www.example.com
(url-recreate-url
- (if (recordp url) url
+ (if (url-p url) url
(url-generic-parse-url url)))))
;;;###autoload
diff --git a/lisp/url/url-dav.el b/lisp/url/url-dav.el
index 66027ae..59b836c 100644
--- a/lisp/url/url-dav.el
+++ b/lisp/url/url-dav.el
@@ -518,7 +518,7 @@ FAILURE-RESULTS is a list of (URL STATUS)."
depth '(("Timeout" . "Infinite"))))
;; Get the parent URL ready for expand-file-name
- (if (not (recordp url))
+ (if (not (url-p url))
(setq url (url-generic-parse-url url)))
;; Walk thru the response list, fully expand the URL, and grab the
@@ -540,7 +540,7 @@ FAILURE-RESULTS is a list of (URL STATUS)."
(child-url nil)
(child-results nil)
(results nil))
- (if (not (recordp url))
+ (if (not (url-p url))
(setq url (url-generic-parse-url url)))
(while response
diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el
index 726fe0b..1dda1d3 100644
--- a/lisp/url/url-file.el
+++ b/lisp/url/url-file.el
@@ -89,7 +89,7 @@ to them."
keep-date &optional msg cont nowait))
(defun url-file-build-filename (url)
- (if (not (recordp url))
+ (if (not (url-p url))
(setq url (url-generic-parse-url url)))
(let* ((user (url-user url))
(pass (url-password url))
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 783f521..06d3286 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -1243,7 +1243,7 @@ Optional arg GATEWAY-METHOD specifies the gateway to be
used,
overriding the value of `url-gateway-method'.
The return value of this function is the retrieval buffer."
- (cl-check-type url record "Need a pre-parsed URL.")
+ (cl-check-type url url "Need a pre-parsed URL.")
(let* (;; (host (url-host (or url-using-proxy url)))
;; (port (url-port (or url-using-proxy url)))
(nsm-noninteractive (or url-request-noninteractive
diff --git a/lisp/url/url-imap.el b/lisp/url/url-imap.el
index 12c8490..b8fe4ed 100644
--- a/lisp/url/url-imap.el
+++ b/lisp/url/url-imap.el
@@ -50,7 +50,7 @@
(nnimap-authenticator ,authenticator)))))
(defun url-imap (url)
- (unless (recordp url)
+ (unless (url-p url)
(signal 'wrong-type-error (list "Need a pre-parsed URL." url)))
(with-current-buffer (generate-new-buffer " *url-imap*")
(mm-disable-multibyte)
diff --git a/lisp/url/url-ldap.el b/lisp/url/url-ldap.el
index 1e5a4e4..d9a18e5 100644
--- a/lisp/url/url-ldap.el
+++ b/lisp/url/url-ldap.el
@@ -119,7 +119,7 @@ URL can be a URL string, or a URL record of the type
returned by
`url-generic-parse-url'."
(if (stringp url)
(setq url (url-generic-parse-url (url-unhex-string url)))
- (if (not (recordp url))
+ (if (not (url-p url))
(error "Argument is not a valid URL")))
(with-current-buffer (generate-new-buffer " *url-ldap*")
(setq url-current-object url)
diff --git a/lisp/url/url.el b/lisp/url/url.el
index a38393e..75cf77d 100644
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -186,7 +186,7 @@ URL-encoded before it's used."
(when (stringp url)
(set-text-properties 0 (length url) nil url)
(setq url (url-encode-url url)))
- (if (not (recordp url))
+ (if (not (url-p url))
(setq url (url-generic-parse-url url)))
(if (not (functionp callback))
(error "Must provide a callback function to url-retrieve"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] scratch/record 917ce99: Use urp-p instead of recordp.,
Lars Brinkhoff <=