Function: erc-shorten-server-name

erc-shorten-server-name is a byte-compiled function defined in erc.el.gz.

Signature

(erc-shorten-server-name SERVER)

Documentation

Shorten SERVER name according to erc-common-server-suffixes.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
(defun erc-shorten-server-name (server)
  "Shorten SERVER name according to `erc-common-server-suffixes'."
  (if (stringp server)
      (with-temp-buffer
        (insert server)
        (let ((alist erc-common-server-suffixes))
          (while alist
            (goto-char (point-min))
            (if (re-search-forward (caar alist) nil t)
                (replace-match (cdar alist)))
            (setq alist (cdr alist))))
        (buffer-string))))