From 3a6051578b940a8592e7dda374d87e47c6eec79c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 20 Dec 2017 16:29:40 -0500 Subject: [PATCH] * lisp/erc/erc.el (erc-shorten-server-name): Silence compiler warning. --- lisp/erc/erc.el | 8 ++++---- 1 file 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)) -- 2.39.2