diff options
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 | ||