diff options
| author | Case Duckworth | 2022-05-27 13:26:19 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-05-27 13:26:19 -0500 |
| commit | 80abceb212b2acb420317232cb2c3d0ab69af13b (patch) | |
| tree | cac3f2260b593d3c2227743e4895bbc392f5be7f /lisp/acdw.el | |
| parent | Don't inhibit redisplay or message when debugging (diff) | |
| download | emacs-80abceb212b2acb420317232cb2c3d0ab69af13b.tar.gz emacs-80abceb212b2acb420317232cb2c3d0ab69af13b.zip | |
asdpofiuasdpfoiasjdpfoiajsdf
Diffstat (limited to 'lisp/acdw.el')
| -rw-r--r-- | lisp/acdw.el | 7 |
1 files changed, 7 insertions, 0 deletions
| diff --git a/lisp/acdw.el b/lisp/acdw.el index 191cdfb..fdcca84 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
| @@ -288,6 +288,13 @@ always nil; this function is mostly intended for use in init." | |||
| 288 | :type '(repeat function) | 288 | :type '(repeat function) |
| 289 | :group 'applications) | 289 | :group 'applications) |
| 290 | 290 | ||
| 291 | (defun +string-repeat (n str) | ||
| 292 | "Repeat STR N times." | ||
| 293 | (let ((r "")) | ||
| 294 | (dotimes (_ n) | ||
| 295 | (setq r (concat r str))) | ||
| 296 | r)) | ||
| 297 | |||
| 291 | (defun chat-disconnect () | 298 | (defun chat-disconnect () |
| 292 | "Disconnect from all chats." | 299 | "Disconnect from all chats." |
| 293 | (interactive) | 300 | (interactive) |