Function: rng-uri-join

rng-uri-join is a byte-compiled function defined in rng-uri.el.gz.

Signature

(rng-uri-join SCHEME AUTHORITY PATH &optional QUERY FRAGMENT-ID)

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/rng-uri.el.gz
(defun rng-uri-join (scheme authority path &optional query fragment-id)
  (when path
    (let (parts)
      (when fragment-id
	(setq parts (list "#" fragment-id)))
      (when query
	(setq parts
	      (cons "?"
		    (cons query parts))))
      (setq parts (cons path parts))
      (when authority
	(setq parts
	      (cons "//"
		    (cons authority parts))))
      (when scheme
	(setq parts
	      (cons scheme
		    (cons ":" parts))))
      (apply 'concat parts))))