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