diff options
| author | Glenn Morris | 2017-12-20 16:29:40 -0500 |
|---|---|---|
| committer | Glenn Morris | 2017-12-20 16:29:40 -0500 |
| commit | 3a6051578b940a8592e7dda374d87e47c6eec79c (patch) | |
| tree | c30f77ea3fad23ff21cd8d8bbc48b0ca353329c7 | |
| parent | 471b6c163f16fbc0b7c58c223bdb7f18ac7656e7 (diff) | |
| download | emacs-3a6051578b940a8592e7dda374d87e47c6eec79c.tar.gz 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 | |||
| 6244 | :group 'erc-mode-line-and-header | 6244 | :group 'erc-mode-line-and-header |
| 6245 | :type 'string) | 6245 | :type 'string) |
| 6246 | 6246 | ||
| 6247 | (defun erc-shorten-server-name (server-name) | 6247 | (defun erc-shorten-server-name (server) |
| 6248 | "Shorten SERVER-NAME according to `erc-common-server-suffixes'." | 6248 | "Shorten SERVER name according to `erc-common-server-suffixes'." |
| 6249 | (if (stringp server-name) | 6249 | (if (stringp server) |
| 6250 | (with-temp-buffer | 6250 | (with-temp-buffer |
| 6251 | (insert server-name) | 6251 | (insert server) |
| 6252 | (let ((alist erc-common-server-suffixes)) | 6252 | (let ((alist erc-common-server-suffixes)) |
| 6253 | (while alist | 6253 | (while alist |
| 6254 | (goto-char (point-min)) | 6254 | (goto-char (point-min)) |