procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Glenn Morris 2017-12-20 16:29:40 -05:00
parent 471b6c163f
commit 3a6051578b
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/erc/erc.el
View file

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