diff options
Diffstat (limited to 'lisp/nxml/rng-uri.el')
| -rw-r--r-- | lisp/nxml/rng-uri.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/nxml/rng-uri.el b/lisp/nxml/rng-uri.el index e2bb8adfef5..798475bbc3d 100644 --- a/lisp/nxml/rng-uri.el +++ b/lisp/nxml/rng-uri.el @@ -83,11 +83,10 @@ Signal an error if URI is not a valid file URL." (cond ((not scheme) (unless pattern (rng-uri-error "URI `%s' does not have a scheme" uri))) - ((not (member (downcase scheme) '("file" "http"))) - (rng-uri-error "URI `%s' does not use the `file:' or `http:' scheme" uri))) - (when (and (equal (downcase scheme) "file") - (not (member authority - (cons (system-name) '(nil "" "localhost"))))) + ((not (string= (downcase scheme) "file")) + (rng-uri-error "URI `%s' does not use the `file:' scheme" uri))) + (when (not (member authority + (cons (system-name) '(nil "" "localhost")))) (rng-uri-error "URI `%s' does not start with `file:///' or `file://localhost/'" uri)) (when query |