diff options
| author | Case Duckworth | 2021-09-04 10:37:46 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-04 10:37:46 -0500 |
| commit | 32236e79f02fd2ebc0af2fab06109413d084a3f7 (patch) | |
| tree | c70c1d7bc6aea81dd5417bc96f38b8f87f2c1753 | |
| parent | Add note x2 (diff) | |
| download | emacs-32236e79f02fd2ebc0af2fab06109413d084a3f7.tar.gz emacs-32236e79f02fd2ebc0af2fab06109413d084a3f7.zip | |
Fix bug
| -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) |