[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 3a60515 1/2: * lisp/erc/erc.el (erc-shorten-serve
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs-26 3a60515 1/2: * lisp/erc/erc.el (erc-shorten-server-name): Silence compiler warning. |
Date: |
Wed, 20 Dec 2017 16:31:10 -0500 (EST) |
branch: emacs-26
commit 3a6051578b940a8592e7dda374d87e47c6eec79c
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* 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 c6548b7..3906c9d 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))