diff options
| author | Glenn Morris <rgm@gnu.org> | 2017-12-20 16:29:40 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2017-12-20 16:29:40 -0500 |
| commit | 3a6051578b940a8592e7dda374d87e47c6eec79c (patch) | |
| tree | c30f77ea3fad23ff21cd8d8bbc48b0ca353329c7 | |
| parent | 471b6c163f16fbc0b7c58c223bdb7f18ac7656e7 (diff) | |
| download | emacs-3a6051578b940a8592e7dda374d87e47c6eec79c.tar.gz emacs-3a6051578b940a8592e7dda374d87e47c6eec79c.tar.bz2 emacs-3a6051578b940a8592e7dda374d87e47c6eec79c.zip | |
* lisp/erc/erc.el (erc-shorten-server-name): Silence compiler warning.
| -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)) |