summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lisp/acdw-irc.el6
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)