diff options
Diffstat (limited to 'lisp/erc/erc.el')
| -rw-r--r-- | lisp/erc/erc.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index c6548b7eaf9..3906c9d32d3 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -6244,11 +6244,11 @@ This should be a string with substitution variables recognized by :group 'erc-mode-line-and-header :type 'string) -(defun erc-shorten-server-name (server-name) - "Shorten SERVER-NAME according to `erc-common-server-suffixes'." - (if (stringp server-name) +(defun erc-shorten-server-name (server) + "Shorten SERVER name according to `erc-common-server-suffixes'." + (if (stringp server) (with-temp-buffer - (insert server-name) + (insert server) (let ((alist erc-common-server-suffixes)) (while alist (goto-char (point-min)) |