Function: url-irc

url-irc is an autoloaded and byte-compiled function defined in url-irc.el.gz.

Signature

(url-irc URL)

Aliases

url-ircs

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-irc.el.gz
;;;###autoload
(defun url-irc (url)
  (let* ((host (url-host url))
	 (port (url-port url))
	 (pass (url-password url))
	 (user (url-user url))
         (chan (url-filename url))
         (type (url-type url))
         (compatp (eql 5 (cdr (func-arity url-irc-function)))))
    (if (url-target url)
	(setq chan (concat chan "#" (url-target url))))
    (if (string-match "^/" chan)
	(setq chan (substring chan 1 nil)))
    (if (= (length chan) 0)
	(setq chan nil))
    (when compatp
      (lwarn 'url :error "Obsolete value for `url-irc-function'"))
    (apply url-irc-function
           host port chan user pass (unless compatp (list type)))
    nil))