diff options
| -rw-r--r-- | lisp/acdw-irc.el | 6 |
1 files changed, 3 insertions, 3 deletions
| diff --git a/lisp/acdw-irc.el b/lisp/acdw-irc.el index f5e5657..3755441 100644 --- a/lisp/acdw-irc.el +++ b/lisp/acdw-irc.el | |||
| @@ -41,9 +41,9 @@ Stolen from s.el." | |||
| 41 | (declare (pure t) (side-effect-free t)) | 41 | (declare (pure t) (side-effect-free t)) |
| 42 | (let (ss) | 42 | (let (ss) |
| 43 | (while (> num 0) | 43 | (while (> num 0) |
| 44 | (setq ss (cons str ss) | 44 | (setq ss (cons s ss)) |
| 45 | num (1- num))) | 45 | (setq num (1- num))) |
| 46 | (apply #'concat ss)))) | 46 | (apply 'concat ss)))) |
| 47 | 47 | ||
| 48 | (if (fboundp 's-truncate) | 48 | (if (fboundp 's-truncate) |
| 49 | (defalias 'truncate-string 's-truncate) | 49 | (defalias 'truncate-string 's-truncate) |