diff options
author | Case Duckworth | 2021-09-14 17:47:46 -0500 |
---|---|---|
committer | Case Duckworth | 2021-09-14 17:47:46 -0500 |
commit | f3c9b7c3d98b3227cef3aa9a51b8853f21ad2462 (patch) | |
tree | 29a82df76cc881b8b2bdec1127bcced149c6c585 /lisp/acdw-irc.el | |
parent | Add default edit server mode (diff) | |
parent | ~mehehheheh (diff) | |
download | emacs-f3c9b7c3d98b3227cef3aa9a51b8853f21ad2462.tar.gz emacs-f3c9b7c3d98b3227cef3aa9a51b8853f21ad2462.zip |
Merge branch 'main' of https://tildegit.org/acdw/emacs
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 | ||