From: Glenn Morris <rgm@gnu.org>
Date: Wed, 20 Dec 2017 21:29:40 +0000 (-0500)
Subject: * lisp/erc/erc.el (erc-shorten-server-name): Silence compiler warning.
X-Git-Tag: emacs-26.0.91~105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a60515;p=emacs.git

* lisp/erc/erc.el (erc-shorten-server-name): Silence compiler warning.
---

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))