diff options
| author | Case Duckworth | 2021-09-14 16:56:56 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-14 16:56:56 -0500 |
| commit | 4c9d8ea075657b1c35d3b7352043725b59525a82 (patch) | |
| tree | 0534d2f30c690dbe824a34474241d6b5b44bb72f /lisp/acdw-irc.el | |
| parent | Add fat-finger-exit (diff) | |
| download | emacs-4c9d8ea075657b1c35d3b7352043725b59525a82.tar.gz emacs-4c9d8ea075657b1c35d3b7352043725b59525a82.zip | |
~mehehheheh
Diffstat (limited to 'lisp/acdw-irc.el')
| -rw-r--r-- | lisp/acdw-irc.el | 12 |
1 files changed, 0 insertions, 12 deletions
| diff --git a/lisp/acdw-irc.el b/lisp/acdw-irc.el index 3755441..b4b75ec 100644 --- a/lisp/acdw-irc.el +++ b/lisp/acdw-irc.el | |||
| @@ -45,18 +45,6 @@ Stolen from s.el." | |||
| 45 | (setq num (1- num))) | 45 | (setq num (1- num))) |
| 46 | (apply 'concat ss)))) | 46 | (apply 'concat ss)))) |
| 47 | 47 | ||
| 48 | (if (fboundp 's-truncate) | ||
| 49 | (defalias 'truncate-string 's-truncate) | ||
| 50 | (defun truncate-string (len s &optional ellipsis) | ||
| 51 | "If STR is longer than LEN, cut it down and add ELLIPSIS to the end. | ||
| 52 | When not specified, ELLIPSIS defaults to '...'." | ||
| 53 | (declare (pure t) (side-effect-free t)) | ||
| 54 | (unless ellipsis | ||
| 55 | (setq ellipsis "...")) | ||
| 56 | (if (> (length s) len) | ||
| 57 | (format "%s%s" (substring s 0 (- len (length ellipsis))) ellipsis) | ||
| 58 | s))) | ||
| 59 | |||
| 60 | 48 | ||
| 61 | ;;; IRC stuff | 49 | ;;; IRC stuff |
| 62 | 50 | ||